File Coverage

blib/lib/Text/MicroMason/Cache/File.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	6	8	75.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	2	2	100.0
total	40	46	86.9

package Text::MicroMason::Cache::File;
@ISA = 'Text::MicroMason::Cache::Simple';

use strict;

# Array field names
use constant LAST_CHECK => 0;
use constant AGE        => 1;
use constant VALUE      => 2;

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

sub get {
    my ( $self, $file ) = @_;
    my $entry = $self->SUPER::get( $file )
        or return;
    unless (ref($entry) eq 'ARRAY' and @$entry == 3 ) {
        Carp::croak("MicroMason: cache '$self' data corrupted; " .
                    "value for '$file' should not be '$entry'");
    }

    my $time = time();
    if ( $entry->[LAST_CHECK] < $time ) { # don't check more than once per second
        my $current_age = -M $file;
        if ( $entry->[AGE] > $current_age ) {
            @$entry = ( 0, 0, undef ); # file has changed; cache invalid
            return;
        } else {
            $entry->[LAST_CHECK] = $time;
        }
    }
    return $entry->[VALUE];
}

sub set {
    my ($self, $file, $sub) = @_;
    $self->SUPER::set( $file => [ time(), -M $file, $sub ] );
    return $sub;
}

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

1;

__END__