12345678910111213141516171819202122 #!/usr/bin/perluse v5.14;use warnings;use Test2::V0;use lib "t";use testcase "t::stages";BEGIN { $^H{"t::stages/permit"} = 1; }{ BEGIN { $^H{'t::stages/post_newcv-capture-cv'} = 1; } stages capture { } is( $t::stages::captured, \&capture, 'captured value of new CV' );}done_testing;
#!/usr/bin/perl
use
v5.14;
warnings;
Test2::V0;
lib
"t"
;
testcase
"t::stages"
BEGIN { $^H{
"t::stages/permit"
} = 1; }
{
't::stages/post_newcv-capture-cv'
stages capture { }
is(
$t::stages::captured
, \
&capture
,
'captured value of new CV'
);
}
done_testing;