File Coverage

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

Criterion	Covered	Total	%
statement	18	33	54.5
branch	0	10	0.0
condition			n/a
subroutine	6	11	54.5
pod	4	4	100.0
total	28	58	48.2

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

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