12 use Test::More tests => 56 * 4;
14 my ($obj, $pkg, $cb, $x, @a);
24 my ($skip, $prefix) = split /#+/, $1;
25 $skip = 0 unless defined $skip;
26 $prefix = '' unless defined $prefix;
31 skip "$_: $skip" => 4 if eval $skip;
33 local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
35 eval "die qq{ok\\n}; $prefix; use indirect; $_";
36 is($@, "ok\n", "use indirect: $_");
38 eval "die qq{ok\n}; $prefix; no indirect; $_";
39 is($@, "ok\n", "no indirect: $_");
43 eval "die qq{ok\\n}; $prefix; use indirect; $_";
44 is($@, "ok\n", "use indirect, defined: $_");
46 eval "die qq{ok\\n}; $prefix; no indirect; $_";
47 is($@, "ok\n", "no indirect, defined: $_");
60 $obj = Hlagh->new(q{foo}, bar => $obj);
64 $obj = Hlagh -> new ( ) ;
66 $obj = Hlagh -> new ( 1 ) ;
68 $obj = Hlagh -> new ( 'foo' , bar => $obj );
91 $obj = new->new; # new new
101 $obj = Hlagh->$cb($pkg);
103 $obj = Hlagh->$cb(sub { 'foo' }, bar => $obj);
107 $obj = $pkg -> new ( );
126 $obj = $pkg -> ($cb) ();
128 $obj = $pkg->$cb( $obj );
130 $obj = $pkg->$cb(qw/foo bar baz/);
158 #### $] < 5.010 # use feature 'state'; state $z
160 #### $] < 5.010 # use feature 'state'; state $z
174 #### $] < 5.010 # use feature 'state'; state $z
176 #### $] < 5.010 # use feature 'state'; state $z
179 print STDOUT "bananananananana\n";
183 $obj = "apple ${\(new Hlagh)} pear"
185 $obj = "apple @{[new Hlagh]} pear"