File Coverage

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

Criterion	Covered	Total	%
statement	18	29	62.0
branch			n/a
condition			n/a
subroutine	6	11	54.5
pod	3	3	100.0
total	27	43	62.7

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package App::cpanm::meta::checker::State::Duplicates::Dist;
$App::cpanm::meta::checker::State::Duplicates::Dist::VERSION = '0.001001';
# 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__