Test-Double
view release on metacpan or search on metacpan
package t::Utils;
use strict;
use warnings;
sub import {
strict->import;
warnings->import;
}
1;
package t::Foo;
sub new { bless {}, shift }
sub bar { return 'bar' }
sub baz { return 'baz' }
( run in 0.440 second using v1.01-cache-2.11-cpan-299005ec8e3 )