File Coverage

blib/lib/Path/IsDev/Heuristic/Tool/Dzil.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 12     12   4705 use 5.008; # utf8
  12         31  
2 12     12   42 use strict;
  12         15  
  12         215  
3 12     12   37 use warnings;
  12         12  
  12         275  
4 12     12   485 use utf8;
  12         21  
  12         47  
5              
6             package Path::IsDev::Heuristic::Tool::Dzil;
7              
8             our $VERSION = '1.001003';
9              
10              
11              
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25             # ABSTRACT: Determine if a path is a Dist::Zilla Source tree
26              
27             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
28              
29 12     12   1129 use Role::Tiny::With qw( with );
  12         3859  
  12         1359  
30             with 'Path::IsDev::Role::Heuristic', 'Path::IsDev::Role::Matcher::Child::Exists::Any::File';
31              
32              
33              
34              
35              
36              
37              
38              
39              
40 16     16 1 117 sub files { return qw( dist.ini ) }
41              
42              
43              
44              
45              
46              
47              
48             sub matches {
49 16     16 1 77 my ( $self, $result_object ) = @_;
50 16 100       38 if ( $self->child_exists_any_file( $result_object, $self->files ) ) {
51 4         58 $result_object->result(1);
52 4         23 return 1;
53             }
54 12         40 return;
55             }
56              
57             1;
58              
59             __END__