File Coverage

blib/lib/App/UpdateCPANfile/Change.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	7	0.0
total	33	40	82.5

package App::UpdateCPANfile::Change;
use strict;
use warnings;

use CPAN::DistnameInfo;

sub new {
    my ($class, %params) = @_;

    bless { %params }, $class;
}

sub package_name { $_[0]->{package_name} };
sub path { $_[0]->{path} };
sub version { $_[0]->{version} };

sub dist_name {
    my ($self) = @_;

    CPAN::DistnameInfo->new($self->path)->dist
}

sub prereqs {
    my ($self) = @_;

    [
        [$self->package_name => "== @{[ $self->version ]}"],
        [$self->package_name => "== @{[ $self->version ]}", relationship => 'suggests'],
        [$self->package_name => "== @{[ $self->version ]}", relationship => 'recommends'],
        # Don't touch conflicts
    ];
}

sub as_hashref {
    my ($self) = @_;

    {
        package_name => $self->package_name,
        version      => $self->version,
        path         => $self->path,
        dist_name    => $self->dist_name,
    }
}

1;