view release on metacpan or  search on metacpan

lib/assign/Test.pm  view on Meta::CPAN

our @EXPORT = qw(
    $t
    test
    is ok pass fail like
    capture
    XXX
    WWW
);

sub import {
    strict->import;
    warnings->import;
    goto &Exporter::import;
}

my $test_count = 0;
sub test {
    return if
        defined $ENV{ONLY} and
        $ENV{ONLY} != ++$test_count;