File Coverage

blib/lib/Path/IsDev/Role/NegativeHeuristic.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 32 33 96.9


line stmt bran cond sub pod time code
1 15     15   5787 use 5.008; # utf8
  15         35  
2 15     15   54 use strict;
  15         15  
  15         250  
3 15     15   43 use warnings;
  15         16  
  15         294  
4 15     15   619 use utf8;
  15         24  
  15         57  
5              
6             package Path::IsDev::Role::NegativeHeuristic;
7              
8             our $VERSION = '1.001003';
9              
10             # ABSTRACT: Base role for Negative Heuristic things.
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14 80     80   273 sub _blessed { require Scalar::Util; goto &Scalar::Util::blessed }
  80         315  
15              
16 15     15   1639 use Role::Tiny qw( requires );
  15         3330  
  15         60  
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             sub name {
42 80     80 1 81 my $name = shift;
43 80 50       122 $name = _blessed($name) if _blessed($name);
44 80         291 $name =~ s/\APath::IsDev::NegativeHeuristic:/- :/msx;
45 80         165 return $name;
46             }
47              
48              
49              
50              
51              
52              
53              
54              
55              
56             sub heuristic_type {
57 80     80 1 116 return 'negative heuristic';
58             }
59              
60              
61              
62              
63              
64              
65              
66              
67              
68              
69              
70              
71              
72              
73              
74              
75              
76              
77              
78              
79              
80              
81             requires 'excludes';
82              
83             1;
84              
85             __END__