view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

{
    no warnings "redefine";
    sub done_testing {
        Test::NoWarnings::had_no_warnings();
        Test::More::done_testing(@_);
    }
}

sub IMPORT {
    shift;
    strict->import;
    warnings->import;
    my $caller = caller 2;
    no strict "refs";
    *{"$caller\::Filter"} = \@Filter;
    *{"$caller\::Data"}   = \$Data;
    *{"$caller\::Want"}   = \$Want;
    return @_;
}

sub filt {