view release on metacpan or  search on metacpan

t/lib/Test/Monitis.pm  view on Meta::CPAN

        }

        $agent = shift @$agents;

        no strict 'refs';
        *{"${caller}::agent"} = \&agent;
        use strict;
    }

    warnings->import;
    strict->import;

    eval <<END;
        package $caller;
        Test::More->import(\%params);
END

    die $@ if $@;
}

1;