12 use Test::More tests => 52 * 4;
16 my ($obj, $pkg, $cb, $x, @a);
27 local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
29 eval "die qq{ok\\n}; use indirect; $_";
30 is($@, "ok\n", "use indirect: $_");
32 eval "die qq{ok\n}; no indirect; $_";
33 is($@, "ok\n", "no indirect: $_");
37 eval "die qq{ok\\n}; use indirect; $_";
38 is($@, "ok\n", "use indirect, defined: $_");
40 eval "die qq{ok\\n}; no indirect; $_";
41 is($@, "ok\n", "no indirect, defined: $_");
52 $obj = Hlagh->new(q{foo}, bar => $obj);
56 $obj = Hlagh -> new ( ) ;
58 $obj = Hlagh -> new ( 1 ) ;
60 $obj = Hlagh -> new ( 'foo' , bar => $obj );
85 $obj = Hlagh->$cb($pkg);
87 $obj = Hlagh->$cb(sub { 'foo' }, bar => $obj);
91 $obj = $pkg -> new ( );
110 $obj = $pkg -> ($cb) ();
112 $obj = $pkg->$cb( $obj );
114 $obj = $pkg->$cb(qw/foo bar baz/);
163 print STDOUT "bananananananana\n";
167 $obj = "apple ${\(new Hlagh)} pear"
169 $obj = "apple @{[new Hlagh]} pear"