use strict;
use warnings;
-use Test::More tests => 52 * 4;
+use Test::More tests => 56 * 4;
my ($obj, $pkg, $cb, $x, @a);
our $y;
sub meh;
+sub zap (&);
{
local $/ = "####";
, bar
=> $obj );
####
+$obj = new->new;
+####
+$obj = new->new; # new new
+####
+$obj = new->newnew;
+####
+$obj = newnew->new;
+####
$obj = Hlagh->$cb;
####
$obj = Hlagh->$cb();
####
$obj = $pkg->$cb(qw/foo bar baz/);
####
-$obj = new { $x };
-####
-$obj = new
- {
- $x }
- ();
-####
-$obj = new {
- $x } qq/foo/;
-####
-$obj = new
- {
- $x
- }(qw/bar baz/);
-####
meh;
####
meh $_;
system $x $x, @a;
####
system { $a[0] } @a;
+####
+zap { };
+####
+zap { 1; };
+####
+zap { 1; 1; };
+####
+zap { zap { }; 1; };