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;