File Coverage

blib/lib/Path/IsDev/Role/HeuristicSet/Simple.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1 13     13   5065 use 5.008; # utf8
  13         33  
2 13     13   46 use strict;
  13         16  
  13         207  
3 13     13   37 use warnings;
  13         15  
  13         257  
4 13     13   499 use utf8;
  13         22  
  13         59  
5              
6             package Path::IsDev::Role::HeuristicSet::Simple;
7              
8             our $VERSION = '1.001003';
9              
10             # ABSTRACT: Simple excludes/includes set
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 13     13   1157 use Role::Tiny qw( with requires );
  13         2851  
  13         64  
47              
48             with 'Path::IsDev::Role::HeuristicSet';
49             requires 'heuristics', 'negative_heuristics';
50              
51              
52              
53              
54              
55              
56              
57              
58              
59              
60             sub modules {
61 16     16 1 21 my ($self) = @_;
62 16         19 my @out;
63 16         46 for my $heur ( $self->negative_heuristics ) {
64 48         1044 push @out, $self->_expand_negative_heuristic($heur);
65             }
66 16         337 for my $heur ( $self->heuristics ) {
67 160         2728 push @out, $self->_expand_heuristic($heur);
68             }
69 16         333 return @out;
70             }
71              
72             1;
73              
74             __END__