File Coverage

blib/lib/Mockery.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	1	2	50.0
condition	2	4	50.0
subroutine	14	14	100.0
pod	0	5	0.0
total	68	76	89.4

package Mockery;
use 5.006; use strict; use warnings;
our $VERSION = '0.01';

sub new {
	return bless $_[1] || {}, $_[0];
}

sub action {
	my ($self, %mockery) = @_;
	{
		no strict 'refs';
		no warnings 'redefine';
		for (keys %{ $mockery{methods} }) {
			*{"$mockery{class}::$_"} = $mockery{methods}{$_};
		}

	}
}

sub fake {
	my ($self, %mockery) = @_;
	my $module = qq{
		package $mockery{class};
		use strict;
		use warnings;
		sub new {
			bless \$_[1] || {}, \$_[0];
		}
		1;
	};
	eval $module;
	die $@ if $@;
	$self->action(%mockery);
	return $mockery{class};
}

sub true {
	my ($self, %mockery) = @_;
	my @methods = @{$mockery{methods}};
	$mockery{methods} = {};
	my $sub = sub { return 1; };
	for (@methods) {
		$mockery{methods}{$_} = $sub;
	}
	$_[0]->action(%mockery);
}

sub false {
	my ($self, %mockery) = @_;
	my @methods = @{$mockery{methods}};
	$mockery{methods} = {};
	my $sub = sub { return 0; };
	for (@methods) {
		$mockery{methods}{$_} = $sub;
	}
	$_[0]->action(%mockery);
}


1;

__END__