File Coverage

blib/lib/Module/Changes/Entire.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	6	6	100.0
total	54	54	100.0

package Module::Changes::Entire;

use warnings;
use strict;
use Module::Changes;


our $VERSION = '0.05';


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


__PACKAGE__
    ->mk_scalar_accessors(qw(name))
    ->mk_array_accessors(qw(releases));


sub newest_release {
    my $self = shift;
    $self->releases_index(0);
}


sub add_empty_release {
    my ($self, $callback) = @_;
    my $newest_release = $self->newest_release;
    my $release = Module::Changes->make_object_for_type('release',
        version => $newest_release->clone_version,
        author  => $newest_release->author,
    );
    $release->touch_date;
    $callback->($release);
    $self->releases_unshift($release);
}


sub add_new_revision {
    my $self = shift;
    $self->add_empty_release(sub { $_[0]->version->inc_revision });
}


sub add_new_version {
    my $self = shift;
    $self->add_empty_release(sub { $_[0]->version->inc_version });
}


sub add_new_subversion {
    my $self = shift;
    $self->add_empty_release(sub {
        my $release = shift;
        $release->version->components(3);
        $release->version->inc_subversion;
    });
}


sub add_new_alpha {
    my $self = shift;
    $self->add_empty_release(sub { $_[0]->version->inc_alpha });
}


1;

__END__