t/lib/feature/dot

   1 Check feature bundles.
   2
   3 __END__
   4 # Test dot without feature
   5 use feature qw(say);
   6 say "Hello" . "world";
   7 EXPECT
   8 Helloworld
   9 ########
  10 # Test ~ with feature
  11 use feature qw(say dot);
  12 say "Hello" ~ "world";
  13 EXPECT
  14 Helloworld
  15 ########
  16 # Test -> for method calls without feature
  17 use feature qw(say);
  18 use CGI;
  19 my $q = CGI->new;
  20 say ref($q);
  21 say $q->blockquote(
  22   "Many years ago on the island of",
  23   $q->a({href=>"http://crete.org/"},"Crete"),
  24   "there lived a Minotaur named",
  25   $q->strong("Fred."),
  26 ),
  27 $q->hr;
  28 EXPECT
  29 CGI
  30 <blockquote>Many years ago on the island of <a href="http://crete.org/">Crete</a> there lived a Minotaur named <strong>Fred.</strong></blockquote><hr />
  31 ########
  32 # Test . for method calls with feature
  33 use feature qw(say dot);
  34 use CGI;
  35 my $q = CGI.new;
  36 say ref($q);
  37 say $q.blockquote(
  38   "Many years ago on the island of",
  39   $q.a({href=>"http://crete.org/"},"Crete"),
  40   "there lived a Minotaur named",
  41   $q.strong("Fred.") ,
  42 ),
  43 $q.hr;
  44 EXPECT
  45 CGI
  46 <blockquote>Many years ago on the island of <a href="http://crete.org/">Crete</a> there lived a Minotaur named <strong>Fred.</strong></blockquote><hr />
  47 ########
  48 # Test -> for array/hash dereference without feature
  49 use feature qw(say);
  50 my $arrayref = [1,2,3,4,5];
  51 say $arrayref->[-1];
  52 my $hashref = {a => 1, b => 2};
  53 say $hashref->{b};
  54 EXPECT
  55 5
  56 2
  57 ########
  58 # Test . for array/hash dereference with feature
  59 use feature qw(say dot);
  60 my $arrayref = [1,2,3,4,5];
  61 say $arrayref.[-1];
  62 my $hashref = {a => 1, b => 2};
  63 say $hashref.{b};
  64 EXPECT
  65 5
  66 2