File Coverage

blib/lib/Text/Xslate/HashWithDefault.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	20	20	100.0

package Text::Xslate::HashWithDefault;
use strict;

use Tie::Hash;
our @ISA = qw(Tie::ExtraHash);

sub TIEHASH {
    my($class, $storage, $default) = @_;
    return bless [ $storage, $default ], $class;
}

sub FETCH {
    my($self, $key) = @_;
    if(exists $self->[0]{$key}) {
        return $self->[0]{$key};
    }
    else {
        return ref($self->[1]) eq 'CODE'
            ? $self->[1]->($key)
            : $self->[1];
    }
}

1;
__END__