t/data/good.d

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $obj;
   7 my $pkg;
   8 my $cb;
   9
  10 $obj = Hlagh1->new;
  11 $obj = Hlagh2->new();
  12 $obj = Hlagh3->new(1);
  13 $obj = Hlagh4->new(q{foo}, bar => $obj);
  14
  15 $obj = Hlagh5   ->   new   ;
  16 $obj = Hlagh6   ->   new   (   )   ;
  17 $obj = Hlagh7   ->   new   (   1   )   ;
  18 $obj = Hlagh8   ->   new   (   'foo'   ,   bar =>   $obj   );
  19
  20 $obj = Hlagh9
  21             ->
  22                           new   ;
  23 $obj = Hlagh10
  24
  25       ->
  26 new   (
  27  )   ;
  28 $obj = Hlagh11
  29                                        ->   new   (
  30                1   )   ;
  31 $obj = Hlagh12   ->
  32                               new   (   "foo"
  33   ,    bar
  34                =>        $obj       );
  35
  36 $obj = Hlagh13->$cb;
  37 $obj = Hlagh14->$cb();
  38 $obj = Hlagh15->$cb($pkg);
  39 $obj = Hlagh16->$cb(sub { 'foo' },  bar => $obj);
  40
  41 $obj = $pkg->new17   ;
  42 $obj = $pkg  ->   new18  (   );
  43 $obj = $pkg
  44            ->
  45         new19 ( $pkg );
  46 $obj =
  47          $pkg
  48 ->
  49 new20        (     qr/foo/,
  50       foo => qr/bar/   );
  51
  52 $obj
  53   =
  54 $pkg
  55 ->
  56 $cb
  57 ;
  58 $obj = $pkg    ->   ($cb)   ();
  59 $obj = $pkg->$cb( $obj  );
  60 $obj = $pkg->$cb(qw/foo bar baz/);
  61
  62 my $x;
  63
  64 $obj = new25 { $x };
  65 $obj = new26
  66   {
  67      $x  }
  68   ();
  69 $obj = new27 {
  70   $x  } qq/foo/;
  71 $obj = new28
  72    {
  73       $x
  74     }(qw/bar baz/);
  75
  76 sub potato29;
  77 sub potato30;
  78
  79 potato29 $x;
  80 potato30 $x, 1 , 2;
  81
  82 print STDOUT "bananananananana\n";
  83 print $x "oh hai\n";