File Coverage

blib/lib/Git/TagVersion/Cmd/Command/changelog.pm

Criterion	Covered	Total	%
statement	3	8	37.5
branch			n/a
condition			n/a
subroutine	1	2	50.0
pod	1	1	100.0
total	5	11	45.4

package Git::TagVersion::Cmd::Command::changelog;

use Moose;

extends 'Git::TagVersion::Cmd::Command';

our $VERSION = '1.01'; # VERSION
# ABSTRACT: generate a changelog

has 'style' => (
  is => 'rw', isa => 'Str', default => 'simple',
  traits => [ 'Getopt' ],
  cmd_aliases => 's',
  documentation => 'format of changelog',
);

sub execute {
  my ( $self, $opt, $args ) = @_;

  foreach my $v ( @{$self->tag_version->versions} ) {
    print $v->render( $self->style );
  }

  return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Git::TagVersion::Cmd::Command::changelog - generate a changelog

=head1 VERSION

version 1.01

=head1 AUTHOR

Markus Benning <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Markus Benning <[e-mail]>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut