File Coverage

blib/lib/SVK/Log/Filter/Date.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package SVK::Log::Filter::Date;

use strict;
use warnings;

use base qw( SVK::Log::Filter::Selection );
use Date::PeriodParser qw( parse_period );
use Time::Local        qw( timegm       );

our $VERSION = '0.0.1';

sub setup {
    my ($self) = @_;

    my $period = $self->{argument} || q{};
    my ( $from, $to ) = parse_period($period);

    # validate the date range
    die "Can't parse the period '$period' : $to\n"
        if $from == -1;

    # store the date ranges for later
    $self->{from} = $from;
    $self->{to}   = $to;

    return;
}

sub revision {
    my ($self, $args) = @_;

    # we need a commit date  (Is there ever not a svn:date property?)
    my $date = $args->{props}->{'svn:date'};
    $self->pipeline('next') if !$date;

    # can we parse the date
    my $commit_time = $self->date_to_epoch($date)
        or $self->pipeline('next');

    # skip revisions that are too late
    $self->pipeline('next') if $commit_time > $self->{to};

    # stop the pipeline entirely if a revision is too early
    $self->pipeline('last') if $commit_time < $self->{from};

    return;
}

sub date_to_epoch {
    my ($self, $svn_date) = @_;

    # parse the date
    my ($y, $M, $d, $h, $m, $s) = split(/[-T:.Z]/, $svn_date)
        or return;

    # normalize the date parts to match what timegm() expects
    $y -= 1900;
    $M--;
    return timegm( $s, $m, $h, $d, $M, $y );
}

1;

__END__