File Coverage

blib/lib/Test/Double.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	38	38	100.0

package Test::Double;

use strict;
use warnings;
use Exporter qw(import);
use Test::Double::Stub;
use Test::Double::Mock;

our $VERSION = '0.05';
$VERSION = eval $VERSION;

our @EXPORT = qw(stub mock);

sub stub {
    bless \$_[0], 'Test::Double::Stub';
}

sub mock {
    Test::Double::Mock->wrap($_[0]);
}

sub verify {
    my $class = shift;
    Test::Double::Mock->verify_all;
}

sub verify_result {
    my $class = shift;
    Test::Double::Mock->verify_result_all;
}

sub reset {
    my $class = shift;
    Test::Double::Mock->reset_all;
}

1;
__END__