File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	28	28	100.0

package Module::Changes::Formatter::YAML;

use warnings;
use strict;
use YAML;
use DateTime::Format::W3CDTF;


our $VERSION = '0.05';


use base 'Module::Changes::Formatter';


sub format {
    my ($self, $changes) = @_;

    my %format = ( global => { name => $changes->name } );

    for my $release ($changes->releases) {
        push @{ $format{releases} } => {
            version => $release->version_as_string,
            date    => DateTime::Format::W3CDTF->new->format_datetime(
                        $release->date
                    ),
            author  => $release->author,
            changes => scalar($release->changes),
            tags    => scalar($release->tags),
        };
    }

    Dump \%format;
}


1;

__END__