use Test::More tests => 52 * 4;
-use feature 'state';
-
my ($obj, $pkg, $cb, $x, @a);
our $y;
-state $z;
sub meh;
{
meh $y;
####
meh $y, 1, 2;
-####
+#### $] < 5.010 # use feature 'state'; state $z
meh $z;
-####
+#### $] < 5.010 # use feature 'state'; state $z
meh $z, 1, 2;
####
print;
print $y;
####
print $y "dongs\n";
-####
+#### $] < 5.010 # use feature 'state'; state $z
print $z;
-####
+#### $] < 5.010 # use feature 'state'; state $z
print $z "hlagh\n";
####
print STDOUT "bananananananana\n";