File Coverage

blib/lib/Text/MicroMason/ExecuteCache.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	25	27	92.5

package Text::MicroMason::ExecuteCache;

use strict;
use Carp;

require Text::MicroMason::Base;
require Text::MicroMason::Cache::Simple;

######################################################################

# $code_ref = compile( text => $template );
sub compile {
    my $self = shift;

    my $code_ref = $self->NEXT('compile', @_);

    my $cache = $self->_execute_cache()
        or return $code_ref;

    sub {
        my $key = join("|", $code_ref, @_);
        $cache->get( $key ) or $cache->set( $key, $code_ref->( @_ ) );
    }
}

sub _execute_cache {
    my $self = shift;

    $self->{execute_cache} ||= Text::MicroMason::Cache::Simple->new();
}

######################################################################

1;

__END__