File Coverage

blib/lib/Template/Plugin/AddTime.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch			n/a
condition	2	2	100.0
subroutine	6	8	75.0
pod	1	3	33.3
total	30	38	78.9

package Template::Plugin::AddTime;
use strict;
use warnings;

use base qw(Template::Plugin);
our $VERSION = '0.01';

sub new {
    my ($class, $context, $args ) = @_;
    my $filter = sub {
        my $context = shift;
        return sub {
            addtime( @_, $args );
        };
    };
    $context->define_filter('addtime', [ $filter => 1 ]);
    return \&addtime;
}

sub addtime_wrap {
    my ($context, @args) = @_;
    sub {
        my $to = shift;
        return addtime( $to, @_ );
    };
}

sub addtime {
    my ($to,$base) = @_;
    $base ||= '';
    my $file = $base . $to;
    my $addtime = (stat( $file ))[9];
    return "$to?$addtime";
}

1;
__END__