File Coverage

blib/lib/Data/Timeline/SVK.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Data::Timeline::SVK;

use strict;
use warnings;
use DateTime::Format::DateParse;


our $VERSION = '0.02';


use base qw(Data::Timeline::Builder);


__PACKAGE__->mk_scalar_accessors(qw(base_dir));


sub create {
    my $self = shift;

    my $timeline = $self->make_timeline;

    chdir $self->base_dir or
        die sprintf "can't chdir to %s: $!\n", $self->base_dir;

    open my $fh, '-|', "svk log" or die "can't read from pipe 'svk log': $!\n";
    while (<$fh>) {
        next unless /^(r\d+:\s*\w+)\s*\|\s*(20.*)/;
        $timeline->entries_push($self->make_entry(
            description => $1,
            timestamp   => DateTime::Format::DateParse->parse_datetime($2),
            type        => 'svk',
        ));
    }
    close $fh or die "can't close pipe to 'svk log': $!\n";
    $timeline;
}


1;


__END__