t/10-good.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 32 * 2;
   7
   8 my ($obj, $pkg, $cb, $x);
   9 sub meh;
  10
  11 {
  12  local $/ = "####\n";
  13  while (<DATA>) {
  14   chomp;
  15   {
  16    use indirect;
  17    local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
  18    eval "die qq{ok\\n}; $_";
  19   }
  20   is($@, "ok\n", $_);
  21   {
  22    no indirect;
  23    local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
  24    eval "die qq{ok\n}; $_";
  25   }
  26   is($@, "ok\n", $_);
  27  }
  28 }
  29
  30 __DATA__
  31 $obj = Hlagh->new;
  32 ####
  33 $obj = Hlagh->new();
  34 ####
  35 $obj = Hlagh->new(1);
  36 ####
  37 $obj = Hlagh->new(q{foo}, bar => $obj);
  38 ####
  39 $obj = Hlagh   ->   new   ;
  40 ####
  41 $obj = Hlagh   ->   new   (   )   ;
  42 ####
  43 $obj = Hlagh   ->   new   (   1   )   ;
  44 ####
  45 $obj = Hlagh   ->   new   (   'foo'   ,   bar =>   $obj   );
  46 ####
  47 $obj = Hlagh
  48             ->
  49                           new   ;
  50 ####
  51 $obj = Hlagh
  52
  53       ->
  54 new   (
  55  )   ;
  56 ####
  57 $obj = Hlagh
  58                                        ->   new   (
  59                1   )   ;
  60 ####
  61 $obj = Hlagh   ->
  62                               new   (   "foo"
  63   ,    bar
  64                =>        $obj       );
  65 ####
  66 $obj = Hlagh->$cb;
  67 ####
  68 $obj = Hlagh->$cb();
  69 ####
  70 $obj = Hlagh->$cb($pkg);
  71 ####
  72 $obj = Hlagh->$cb(sub { 'foo' },  bar => $obj);
  73 ####
  74 $obj = $pkg->new   ;
  75 ####
  76 $obj = $pkg  ->   new  (   );
  77 ####
  78 $obj = $pkg
  79            ->
  80         new ( $pkg );
  81 ####
  82 $obj =
  83          $pkg
  84 ->
  85 new        (     qr/foo/,
  86       foo => qr/bar/   );
  87 ####
  88 $obj
  89   =
  90 $pkg
  91 ->
  92 $cb
  93 ;
  94 ####
  95 $obj = $pkg    ->   ($cb)   ();
  96 ####
  97 $obj = $pkg->$cb( $obj  );
  98 ####
  99 $obj = $pkg->$cb(qw/foo bar baz/);
 100 ####
 101 $obj = new { $x };
 102 ####
 103 $obj = new
 104   {
 105      $x  }
 106   ();
 107 ####
 108 $obj = new {
 109   $x  } qq/foo/;
 110 ####
 111 $obj = new
 112    {
 113       $x
 114     }(qw/bar baz/);
 115 ####
 116 meh $x;
 117 ####
 118 meh $x, 1 , 2;
 119 ####
 120 print STDOUT "bananananananana\n";
 121 ####
 122 print $x "oh hai\n";