File Coverage

blib/lib/Parse/CVSEntries.pm

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

use strict;
package Parse::CVSEntries;
use vars qw( $VERSION );
$VERSION = '0.03';

=head1 NAME

Parse::CVSEntries - parse a CVS/Entries file

=head1 SYNOPSIS

 my $parsed = Parse::CVSEntries->new( 'CVS/Entries' );
 for my $entry ($parsed->entries) {
     print $entry->name, " ", $entry->version, "\n";
 }

=head1 DESCRIPTION

=cut

=head1 METHODS

=head2 new( $file )

Opens a file and parses it invoking C<< entry_class->new >> to
actually prepare the data.

=cut

sub new {
    my $class    = shift;
    my $filename = shift;
    open my $fh, "<$filename" or return;
    my @entries = map { chomp; $class->entry_class->new($_) } <$fh>;
    bless \@entries, $class;
}

=head2 entries

Returns a list of all the entries in the parsed file.

=cut

sub entries {
    @{ $_[0] }
}

=head2 entry_class

What class to instantiate for each entry.  Defaults to C

=cut

sub entry_class {
    'Parse::CVSEntry';
}

=head1 Parse::CVSEntry

A representation of an entry in the entries file.

=head1 METHODS

All of these are just simple data accessors.

=head2 dir

=head2 name

=head2 version

=head2 modified

=head2 mtime

C as epoch seconds

=cut

package Parse::CVSEntry;
use Class::Accessor::Fast;
use base 'Class::Accessor::Fast';
use Date::Parse qw( str2time );

# the actual fields in the file
my @fields = qw( dir name version modified bar baz );
__PACKAGE__->mk_accessors( @fields, qw( mtime ) );

sub new {
    my $class = shift;
    my $line  = shift;

    my %self;
    @self{ @fields } = split /\//, $_;
    my $new = $class->SUPER::new(\%self);

    $new->mtime( str2time $new->modified, "UTC" );
    return $new;
}

1;
__END__