my ($tests, $reports);
BEGIN {
- $tests = 82;
- $reports = 94;
+ $tests = 84;
+ $reports = 96;
}
use Test::More tests => 3 * (4 * $tests + $reports) + 4;
SKIP:
{
skip 'No space tests on perl 5.11' => 4 + @expected
- if $] >= 5.011 and $] < 5.012;
+ if "$]" >= 5.011 and "$]" < 5.012;
my $code = $code;
$code =~ s/\$/\$ \n\t /g;
meh $y, 1, 2;
----
[ 'meh', '$y' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
meh $z;
----
[ 'meh', '$z' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
meh $z 1, 2;
----
[ 'meh', '$z' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
meh $z, 1, 2;
----
[ 'meh', '$z' ]
$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___' ]