File Coverage

blib/lib/Test/Mimic/Library/PlayHash.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch			n/a
condition			n/a
subroutine	4	13	30.7
pod			n/a
total	16	46	34.7

package Test::Mimic::Library::PlayHash;

use strict;
use warnings;

use base qw;

use constant {
    # Instance variables
    HISTORY => 0,

    # History fields
    FETCH_F     => 0,
    KEYS_F      => 1,
    EXISTS_F    => 2,
    SCALAR_F    => 3,
};

sub TIEHASH {
    my ( $class, $history ) = @_;

    my $self = [];
    $self->[HISTORY] = $history;

    return bless( $self, $class );
}

sub STORE {
    # not a read, do nothing
}

sub FETCH {
    my ( $self, $key ) = @_;

    return Test::Mimic::Library::play( shift( @{ $self->[HISTORY]->[FETCH_F]->{$key} } ) );
}

sub FIRSTKEY {
    my ($self) = @_;

    return $self->NEXTKEY();
}

sub NEXTKEY {
    my ( $self, $last_key ) = @_;

    return shift( @{ $self->[HISTORY]->[KEYS_F] } );
}

sub EXISTS {
    my ( $self, $key ) = @_;

    return shift( @{ $self->[HISTORY]->[EXISTS_F]->{$key} } );
}

sub DELETE {
    # not a read, do nothing
}

sub CLEAR {
    # not a read, do nothing
}

sub SCALAR {
    my ( $self ) = @_;

    return shift( @{ $self->[HISTORY]->[SCALAR_F] } );
}

1;