123456789101112131415161718192021222324 #!/usr/bin/perluse v5.14;use warnings;use Test2::V0;use lib "t";use testcase "t::prefix";BEGIN { $^H{"t::prefix/func"}++; $^H{"t::prefix/prefixed"}++;}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::prefix"
BEGIN {
$^H{
"t::prefix/func"
}++;
"t::prefix/prefixed"
}
our
$LOG
; BEGIN {
=
""
};
prefixed func example {
.=
"B"
is(
,
"SpSfEpEfBLfLpNpNf"
'stages run in correct order'
);
done_testing;