File Coverage

blib/lib/Text/APL/WithCaching.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	8	10	80.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	45	47	95.7

package Text::APL::WithCaching;

use strict;
use warnings;

use base 'Text::APL::Core';

sub _process {
    my $self = shift;
    my ($input, $context, $cb) = @_;

    if (my $cache = $self->_load_cache($context)) {
        if ($cache->{id} ne $context->id) {
            $cache->{sub_ref} =
              $self->SUPER::_compile($cache->{code}, $context);
        }

        return $cb->($self, $cache->{sub_ref});
    }

    $self->SUPER::_process(@_);
}

sub _compile {
    my $self = shift;
    my ($code, $context) = @_;

    my $sub_ref = $self->SUPER::_compile($code, $context);

    $self->_cache($code, $context, $sub_ref);

    return $sub_ref;
}

sub _load_cache {
    my $self = shift;
    my ($context) = @_;

    return unless defined $context->name;

    return unless exists $self->{cache}->{$context->name};

    return $self->{cache}->{$context->name};
}

sub _cache {
    my $self = shift;
    my ($code, $context, $sub_ref) = @_;

    return unless defined $context->name;

    $self->{cache}->{$context->name} = {
        id      => $context->id,
        code    => $code,
        sub_ref => $sub_ref
    };
}

1;
__END__