File Coverage

blib/lib/Module/Changes/Parser.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	30	46.6

package Module::Changes::Parser;

use warnings;
use strict;


our $VERSION = '0.05';


use base 'Module::Changes::Base';


__PACKAGE__->mk_abstract_accessors(qw(parse_string));


sub parse_from_filehandle {
    my ($self, $filehandle) = @_;
    my $content = do { local $/; <$filehandle> };
    $self->parse_string($content);
}


sub parse_from_file {
    my ($self, $filename) = @_;
    open my $fh, '<', $filename or die "can't open $filename: $!\n";
    my $changes = $self->parse_from_filehandle($fh);
    close $fh or die "can't close $filename: $!\n";
    $changes;
}


1;

__END__