File Coverage

blib/lib/Mojo/Cache/Role/GetDefault.pm

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	7	7	100.0

package Mojo::Cache::Role::GetDefault;
use Mojo::Base -role;

with 'Mojo::Cache::Role::Exists';

our $VERSION = '0.01';

requires qw(get set);

has 'default';

around get => sub {
    my $orig = shift;
    my $self = shift;
    my $key  = shift;

    if ((not @_ and not defined $self->default) or $self->exists($key)) {
        return $self->$orig($key);
    }

    my $default = @_ ? $_[0] : $self->default;
    my $value = ref $default eq 'CODE' ? do { local $_ = $key; $default->($key) } : $default;
    $self->set($key, $value);

    return $value;
};

sub clear_default { $_[0]->default(undef) }

1;
__END__