my ($tests, $reports);
BEGIN {
- $tests = 82;
- $reports = 94;
+ $tests = 84;
+ $reports = 96;
}
use Test::More tests => 3 * (4 * $tests + $reports) + 4;
$obj = "apple @{[new { feh $x; meh $y; 1 }]} pear"
----
[ 'feh', '$x' ], [ 'meh', '$y' ], [ 'new', '{' ]
+####
+package __PACKAGE_;
+new __PACKAGE_;
+----
+[ 'new', '__PACKAGE_' ]
+####
+package __PACKAGE___;
+new __PACKAGE___;
+----
+[ 'new', '__PACKAGE___' ]