view release on metacpan or  search on metacpan

lib/Test/Spec/Acceptance.pm  view on Meta::CPAN

    @Test::Spec::EXPORT_OK,
    @Test::Spec::ExportProxy::EXPORT_OK,
    @ACCEPTANCE_EXPORT,
);
our %EXPORT_TAGS = (all => \@EXPORT_OK);

sub import {
    my $class = shift;
    my $callpkg = caller;

    strict->import;
    warnings->import;

    if (@_) {
        $class->export_to_level(1, $callpkg, @_);
        return;
    }

    eval qq{
        package $callpkg;
        use parent 'Test::Spec::Acceptance';