6 use Test::More tests => 32 * 2;
8 my ($obj, $pkg, $cb, $x);
17 local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
18 eval "die qq{ok\\n}; $_";
23 local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
24 eval "die qq{ok\n}; $_";
37 $obj = Hlagh->new(q{foo}, bar => $obj);
41 $obj = Hlagh -> new ( ) ;
43 $obj = Hlagh -> new ( 1 ) ;
45 $obj = Hlagh -> new ( 'foo' , bar => $obj );
70 $obj = Hlagh->$cb($pkg);
72 $obj = Hlagh->$cb(sub { 'foo' }, bar => $obj);
76 $obj = $pkg -> new ( );
95 $obj = $pkg -> ($cb) ();
97 $obj = $pkg->$cb( $obj );
99 $obj = $pkg->$cb(qw/foo bar baz/);
120 print STDOUT "bananananananana\n";