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	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__