File Coverage

blib/lib/Module/CPANfile/Requirement.pm

Criterion	Covered	Total	%
statement	8	11	72.7
branch			n/a
condition	2	2	100.0
subroutine	4	6	66.6
pod	0	5	0.0
total	14	24	58.3

package Module::CPANfile::Requirement;
use strict;

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

    $args{version} ||= 0;

    bless +{
        name    => delete $args{name},
        version => delete $args{version},
        options => \%args,
    }, $class;
}

sub name    { $_[0]->{name} }
sub version { $_[0]->{version} }

sub options { $_[0]->{options} }

sub has_options {
    keys %{$_[0]->{options}} > 0;
}

1;