123456789101112131415161718192021222324 use strict;use warnings;use Test2::API qw/context/;sub plan { my $ctx = context(); $ctx->plan(@_); $ctx->release;}sub ok($;$) { my ($bool, $name) = @_; my $ctx = context(); $ctx->ok($bool, $name); $ctx->release;}plan(0, 'no_plan');ok(1, "First");ok(1, "Second");1;
use
strict;
warnings;
Test2::API
qw/context/
;
sub
plan {
my
$ctx
= context();
->plan(
@_
);
->release;
}
ok($;$) {
(
$bool
,
$name
) =
->ok(
plan(0,
'no_plan'
ok(1,
"First"
"Second"
1;