File Coverage

blib/lib/Path/IsDev/Role/Matcher/FullPath/Is/Any.pm

Criterion	Covered	Total	%
statement	38	46	82.6
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	50	61	81.9

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

package Path::IsDev::Role::Matcher::FullPath::Is::Any;

our $VERSION = '1.001003';

# ABSTRACT: Match if the current directory is the same directory from a list of absolute paths.

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

sub _path {
  require Path::Tiny;
  Path::Tiny->VERSION('0.004');
  goto &Path::Tiny::path;
}

use Role::Tiny;






















sub _fullpath_is {
  my ( $self, $result_object, $this, $comparator ) = @_;

  my $context = {};

  $context->{tests} = [];

  $context->{test_path} = "$comparator";

  my $path = _path($comparator);

  if ( not $path->exists ) {
    push @{ $context->{tests} }, { 'test_path_exists?' => 0 };
    $result_object->add_reason( $self, 0, "comparative path $comparator does not exist", $context );
    return;
  }

  push @{ $context->{tests} }, { 'test_path_exists?' => 1 };

  my $realpath = $path->realpath;

  $context->{source_realpath} = "$this";
  $context->{test_realpath}   = "$realpath";

  if ( not $realpath eq $this ) {
    push @{ $context->{tests} }, { 'test_realpath_eq_source_realpath?' => 0 };
    $result_object->add_reason( $self, 0, "$this ne $realpath", $context );
    return;
  }
  push @{ $context->{tests} }, { 'test_realpath_eq_source_realpath?' => 1 };
  $result_object->add_reason( $self, 1, "$this eq $realpath", $context );
  return 1;
}













sub fullpath_is_any {
  my ( $self, $result_object, @dirnames ) = @_;
  my $current = $result_object->path->realpath;
  for my $dirname (@dirnames) {
    return 1 if $self->_fullpath_is( $result_object, $current, $dirname );
  }
  return;
}

1;

__END__