File Coverage

blib/lib/Module/Changes/Parser/YAML.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	39	40	97.5

package Module::Changes::Parser::YAML;

use warnings;
use strict;
use YAML;
use Module::Changes;
use DateTime::Format::W3CDTF;
use Perl::Version;


our $VERSION = '0.05';


use base 'Module::Changes::Parser';


sub parse_string {
    my ($self, $content) = @_;
    my $spec = Load($content);

    my $changes = Module::Changes->make_object_for_type('entire');

    $changes->name($spec->{global}{name});
    for my $rel_spec (@{ $spec->{releases} || []}) {
        $changes->releases_push(Module::Changes
            ->make_object_for_type('release',
            version => Perl::Version->new($rel_spec->{version}),
            date    => DateTime::Format::W3CDTF->new->parse_datetime(
                        $rel_spec->{date}),
            author  => $rel_spec->{author},
            changes => $rel_spec->{changes},
            tags    => $rel_spec->{tags},
        ));
    }

    $changes;
}


1;


__END__