File Coverage

blib/lib/Geo/UK/Postcode/Regex/Hash.pm

Criterion	Covered	Total	%
statement	5	5	100.0
branch			n/a
condition	2	3	66.6
subroutine	2	2	100.0
pod			n/a
total	9	10	90.0

package Geo::UK::Postcode::Regex::Hash;

our $VERSION = '0.015';

require Tie::Hash;

our @ISA = qw/ Tie::StdHash /;

sub TIEHASH {
    my $class = shift;
    return bless {@_}, $class;
}

sub FETCH {
    my ( $this, $key ) = @_;
    $this->{$key} //= $this->{_fetch}->($key);
    return $this->{$key};
}

1;