File Coverage

blib/lib/App/cpanm/meta/checker/State/Duplicates/Dist.pm

Criterion	Covered	Total	%
statement	14	25	56.0
branch			n/a
condition			n/a
subroutine	5	10	50.0
pod	3	3	100.0
total	22	38	57.8

use 5.006;    # our
use strict;
use warnings;

package App::cpanm::meta::checker::State::Duplicates::Dist;

our $VERSION = '0.001002';

# ABSTRACT: State information for recording seen versions of a single dist

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Moo qw( has );





has 'reported' => (
  is      => rw  =>,
  lazy    => 1,
  builder => sub { return; },
);





has 'versions' => (
  is   => ro =>,
  lazy => 1,
  builder => sub { return {} },
);









sub has_duplicates {
  my ($self) = @_;
  return ( keys %{ $self->versions } > 1 );
}









sub seen_version {
  my ( $self, $version ) = @_;
  $self->versions->{$version} = 1;
  return;
}









sub duplicate_versions {
  my ($self) = @_;
  return keys %{ $self->versions };
}

no Moo;

1;

__END__