view release on metacpan or  search on metacpan

t/12-many.t  view on Meta::CPAN

        #type => qr/[A-Z]/,
        action => sub {
            pass "TestVar called";
            is ++$count, 2, "TestVar count";
            is $_[0], "TestVar", "TestVar: arg0";
            is $_[1], "C", "TestVar: arg1";
        }
    }
];

sub run_tests(&)
{
    my $code = shift;
    # Run the test 2 times to check there is no state kept
    for my $i (1..2) {
	local $count = 0;
	open my $f, '<', \$data;
	&{$code}($f);
    }
}