12 $obj = Hlagh3->new(1);
13 $obj = Hlagh4->new(q{foo}, bar => $obj);
15 $obj = Hlagh5 -> new ;
16 $obj = Hlagh6 -> new ( ) ;
17 $obj = Hlagh7 -> new ( 1 ) ;
18 $obj = Hlagh8 -> new ( 'foo' , bar => $obj );
37 $obj = Hlagh14->$cb();
38 $obj = Hlagh15->$cb($pkg);
39 $obj = Hlagh16->$cb(sub { 'foo' }, bar => $obj);
42 $obj = $pkg -> new18 ( );
58 $obj = $pkg -> ($cb) ();
59 $obj = $pkg->$cb( $obj );
60 $obj = $pkg->$cb(qw/foo bar baz/);
82 print STDOUT "bananananananana\n";