Test-AutoMock
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Test/AutoMock/Mock/TieArray.pm view on Meta::CPAN
package Test::AutoMock::Mock::TieArray;
use strict;
use warnings;
sub TIEARRAY {
my ($class, $manager) = @_;
bless \$manager => $class;
}
sub FETCH {
my ($self, $key) = @_;
my $manager = $$self;
my $arrayref = $manager->tie_array;
my $method_name = "[$key]";
$manager->_call_method($method_name, [], sub {
my $self = shift;
lib/Test/AutoMock/Mock/TieHash.pm view on Meta::CPAN
package Test::AutoMock::Mock::TieHash;
use strict;
use warnings;
sub TIEHASH {
my ($class, $manager) = @_;
bless \$manager => $class;
}
sub FETCH {
my ($self, $key) = @_;
my $manager = $$self;
my $hashref = $manager->tie_hash;
my $method_name = "{$key}";
$manager->_call_method($method_name, [], sub {
my $self = shift;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.718 second using v1.00-cache-2.02-grep-82fe00e-cpan-9e6bc14194b )