File Coverage

blib/lib/Path/IsDev/NegativeHeuristic/IsDev/IgnoreFile.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 28 30 93.3


line stmt bran cond sub pod time code
1 12     12   4739 use 5.008; # utf8
  12         28  
2 12     12   54 use strict;
  12         12  
  12         224  
3 12     12   35 use warnings;
  12         11  
  12         272  
4 12     12   556 use utf8;
  12         52  
  12         47  
5              
6             package Path::IsDev::NegativeHeuristic::IsDev::IgnoreFile;
7              
8             our $VERSION = '1.001003';
9              
10             # ABSTRACT: An explicit exclusion file heuristic
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36              
37              
38              
39              
40              
41              
42              
43              
44              
45              
46              
47              
48              
49              
50              
51 12     12   1301 use Role::Tiny::With qw( with );
  12         4893  
  12         1371  
52             with 'Path::IsDev::Role::NegativeHeuristic', 'Path::IsDev::Role::Matcher::Child::Exists::Any::File';
53              
54              
55              
56              
57              
58              
59              
60              
61              
62             sub excludes_files {
63 16     16 1 49 return ('.path_isdev_ignore');
64             }
65              
66              
67              
68              
69              
70              
71              
72             sub excludes {
73 16     16 1 27 my ( $self, $result_object ) = @_;
74 16 50       39 if ( $self->child_exists_any_file( $result_object, $self->excludes_files ) ) {
75 0         0 return 1;
76             }
77 16         47 return;
78             }
79             1;
80              
81             __END__