File Coverage

blib/lib/Sledge/Plugin/IfModifiedSince.pm

Criterion	Covered	Total	%
statement	23	42	54.7
branch	0	12	0.0
condition			n/a
subroutine	6	10	60.0
pod	3	3	100.0
total	32	67	47.7

package Sledge::Plugin::IfModifiedSince;

use strict;
use vars qw($VERSION);
$VERSION = '0.05';

use HTTP::Date qw(str2time time2str);

use constant NOT_MODIFIED  => 304;

sub import {
    my $class = shift;
    my $pkg = caller;
    no strict 'refs';
    *{"$pkg\::not_modified"} = \¬_modified;
    *{"$pkg\::if_modified_since"} = \&if_modified_since;
    *{"$pkg\::set_last_modified"} = \&set_last_modified;
}

sub not_modified {
    my $self=shift;
	$self->r->status(NOT_MODIFIED);
	$self->send_http_header;
	$self->finished(1);
}

sub if_modified_since {
    my ($self, $thing) = @_;
    return 1 unless $thing;
    my $mtime = _get_epoch($thing);
    my $if_modified_since_epoch = str2time($ENV{'HTTP_IF_MODIFIED_SINCE'});
    return 1 unless $if_modified_since_epoch;
    return ( $mtime > $if_modified_since_epoch ) ? return 1 : 0;

}

sub set_last_modified {
    my ($self, $thing) = @_;
    my $mtime = _get_epoch($thing);
    $self->r->header_out('Last-Modified' => time2str($mtime))
    if $mtime;
}

sub _get_epoch {
    my $thing = shift;
    if ( $thing =~ /^\d+$/ ) { # treat as epoch
        return $thing;
    } elsif ( -e $thing ) { # treat as path
        return (stat($thing))[9];
    } else {
        warn "Argument must be a epochtime or filepath\n";
        return;
    }
}

1;
__END__