File Coverage

blib/lib/Path/IsDev/NegativeHeuristic/PerlINC.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	39	42	92.8

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

package Path::IsDev::NegativeHeuristic::PerlINC;

our $VERSION = '1.001003';

# ABSTRACT: White-list paths in Config.pm as being non-development roots.

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

## no critic (RequireArgUnpacking, ProhibitSubroutinePrototypes)
sub _uniq (@) {
  my %seen = ();
  return grep { not $seen{$_}++ } @_;
}
















use Role::Tiny::With qw( with );
use Config;

with 'Path::IsDev::Role::NegativeHeuristic', 'Path::IsDev::Role::Matcher::FullPath::Is::Any';









sub paths {
  my @sources;
  push @sources, $Config{archlibexp}, $Config{privlibexp}, $Config{sitelibexp}, $Config{vendorlibexp};
  return _uniq grep { defined and length } @sources;
}







sub excludes {
  my ( $self, $result_object ) = @_;

  return unless $self->fullpath_is_any( $result_object, $self->paths );
  return 1;
}

1;

__END__