123456789101112131415161718192021 #!/usr/bin/perluse v5.14;use warnings;use Test2::V0;use lib "t";use testcase "t::any";BEGIN { $^H{"t::any/func"}++ }our $LOG; BEGIN { $LOG = "" };prefixed func example { BEGIN { $LOG .= "B" }}is( $LOG, "SpSfEpEfBLfLpNpNf", 'stages run in correct order' );done_testing;
#!/usr/bin/perl
use
v5.14;
warnings;
Test2::V0;
lib
"t"
;
testcase
"t::any"
BEGIN { $^H{
"t::any/func"
}++ }
our
$LOG
; BEGIN {
=
""
};
prefixed func example {
BEGIN {
.=
"B"
}
is(
,
"SpSfEpEfBLfLpNpNf"
'stages run in correct order'
);
done_testing;