File Coverage

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

Criterion	Covered	Total	%
statement	14	29	48.2
branch	0	10	0.0
condition			n/a
subroutine	5	10	50.0
pod	4	4	100.0
total	23	53	43.4

use 5.006;    # our
use strict;
use warnings;

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

our $VERSION = '0.001002';

# ABSTRACT: Data tracking for duplicate distribution meta-data

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

use Moo qw( has );
use App::cpanm::meta::checker::State::Duplicates::Dist;





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







sub seen_dist_version {
  my ( $self, $dist, $version ) = @_;
  if ( not exists $self->dists->{$dist} ) {
    $self->dists->{$dist} = App::cpanm::meta::checker::State::Duplicates::Dist->new();
  }
  return $self->dists->{$dist}->seen_version($version);
}









sub has_duplicates {
  my ( $self, $dist ) = @_;
  return unless exists $self->dists->{$dist};
  return $self->dists->{$dist}->has_duplicates;
}










sub reported_duplicates {
  my ( $self, $dist, $set_reported ) = @_;
  return unless exists $self->dists->{$dist};
  return $self->dists->{$dist}->reported($set_reported) if @_ > 2;
  return $self->dists->{$dist}->reported();
}









sub duplicate_versions {
  my ( $self, $dist ) = @_;
  return unless exists $self->dists->{$dist};
  return $self->dists->{$dist}->duplicate_versions;
}

1;

__END__