X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F10-good.t;h=32b62ecbeeb9994f2134fdca9ceaf0e3cf46d355;hp=da9b2d734fd6dd7b903691758ddbafceb20fb292;hb=4575bb0d8b810adecce86133968da53594a9ec40;hpb=256486fe8cf158890b5bd5048d7467d6809b4f2e diff --git a/t/10-good.t b/t/10-good.t index da9b2d7..32b62ec 100644 --- a/t/10-good.t +++ b/t/10-good.t @@ -11,11 +11,8 @@ use warnings; use Test::More tests => 52 * 4; -use feature 'state'; - my ($obj, $pkg, $cb, $x, @a); our $y; -state $z; sub meh; { @@ -150,9 +147,9 @@ meh $x, 1, 2; meh $y; #### meh $y, 1, 2; -#### +#### # use feature 'state'; state $z meh $z; -#### +#### # use feature 'state'; state $z meh $z, 1, 2; #### print; @@ -166,9 +163,9 @@ print $x "oh hai\n"; print $y; #### print $y "dongs\n"; -#### +#### # use feature 'state'; state $z print $z; -#### +#### # use feature 'state'; state $z print $z "hlagh\n"; #### print STDOUT "bananananananana\n";