Test-Mock-Guard
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Test/Mock/Guard.pm view on Meta::CPAN
no strict 'refs';
no warnings 'redefine';
*{$fully_qualified_method_name} = set_prototype(sub {
++$stash->{$class_name}->{$method_name}->{called_count};
&$mocked_method;
}, $prototype);
}
}
return bless { restore => $restore, object => $object } => $class;
}
sub call_count {
my ($self, $klass, $method_name) = @_;
if (my $class_name = blessed $klass) {
# object
my $refaddr = refaddr $klass;
my $guard = $self->{object}->{"$class_name#$refaddr"}
|| return undef; ## no critic
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.343 second using v1.00-cache-2.02-grep-82fe00e-cpan-9e6bc14194b )