1use strict; 2use warnings; 3 4use Test2::API qw/context/; 5 6sub plan { 7 my $ctx = context(); 8 $ctx->plan(@_); 9 $ctx->release; 10} 11 12sub ok($;$) { 13 my ($bool, $name) = @_; 14 my $ctx = context(); 15 $ctx->ok($bool, $name); 16 $ctx->release; 17} 18 19plan(2); 20 21ok(1, "First"); 22ok(1, "Second"); 23 241; 25