File Coverage

blib/lib/Path/IsDev/Heuristic/DevDirMarker.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1 6     6   2114 use 5.008; # utf8
  6         14  
2 6     6   25 use strict;
  6         7  
  6         96  
3 6     6   16 use warnings;
  6         7  
  6         116  
4 6     6   455 use utf8;
  6         16  
  6         25  
5              
6             package Path::IsDev::Heuristic::DevDirMarker;
7              
8             our $VERSION = '1.001003';
9              
10             # ABSTRACT: Determine if a path contains a .devdir file
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27              
28              
29 6     6   704 use Role::Tiny::With qw( with );
  6         3433  
  6         669  
30             with 'Path::IsDev::Role::Heuristic', 'Path::IsDev::Role::Matcher::Child::Exists::Any::File';
31              
32              
33              
34              
35              
36              
37              
38              
39              
40             sub files {
41 5     5 1 22 return qw( .devdir );
42             }
43              
44              
45              
46              
47              
48              
49              
50             sub matches {
51 5     5 1 9 my ( $self, $result_object ) = @_;
52 5 100       13 if ( $self->child_exists_any_file( $result_object, $self->files ) ) {
53 1         15 $result_object->result(1);
54 1         6 return 1;
55             }
56 4         14 return;
57             }
58              
59             1;
60              
61             __END__