view release on metacpan or  search on metacpan

t/lib/Test/Resource/Pack.pm  view on Meta::CPAN

sub data_dir {
    my $script = $0;
    $script =~ s/.*(\d{2})-[\w-]+\.t$/$1/;
    return dir($FindBin::Bin, 'data', $script);
}

sub import {
    Test::More->export_to_level(2);
    Test::Moose->import({into_level => 2});
    Path::Class->export_to_level(2);
    strict->import;
    warnings->import;
    goto $import;
}

1;