File Coverage

blib/lib/ShipIt/Step/ApplyYAMLChangeLogVersion.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	8	0.0
condition	0	2	0.0
subroutine	5	7	71.4
pod	2	2	100.0
total	22	44	50.0

package ShipIt::Step::ApplyYAMLChangeLogVersion;

use strict;
use warnings;
use Dist::Joseki;
use Dist::Joseki::Version;


our $VERSION = '0.02';


use base qw(ShipIt::Step);


sub init {
    my ($self, $conf) = @_;

    $self->{file} = $conf->value("ApplyYAMLChangeLogVersion.file") ||
        'Changes';
}


sub run {
    my ($self, $state) = @_;

    my $version = Dist::Joseki::Version->new->
        get_newest_version($self->{file});
    my $is_tagged = $state->vc->exists_tagged_version($version);

    die "Version $version is already tagged. Update $self->{file}.\n" if
        $is_tagged;

    -e $self->{file} or die "$self->{file} does not exist\n";
    -r $self->{file} or die "$self->{file} is not readable\n";

    # call dist(1) so the ~/.distrc gets used
    system("dist version -s -f $self->{file}") and
        die "Can't apply YAML Changelog version: $?\n";

    $state->set_version($version);
}


1;


__END__