File Coverage

blib/lib/Bubblegum/Object/Role/Comparison.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 10 30.0
pod 0 7 0.0
total 12 33 36.3


line stmt bran cond sub pod time code
1             package Bubblegum::Object::Role::Comparison;
2              
3 36     36   18503 use 5.10.0;
  36         103  
  36         1435  
4 36     36   164 use namespace::autoclean;
  36         50  
  36         246  
5              
6 36     36   2059 use Bubblegum::Role 'requires', 'with';
  36         50  
  36         246  
7              
8             with 'Bubblegum::Object::Role::Item';
9              
10             our $VERSION = '0.45'; # VERSION
11              
12             requires 'eq';
13             requires 'eqtv';
14             requires 'gt';
15             requires 'gte';
16             requires 'lt';
17             requires 'lte';
18             requires 'ne';
19              
20             sub equal {
21 0     0 0   goto &eq;
22             }
23              
24             sub equal_type_and_value {
25 0     0 0   goto &eqtv;
26             }
27              
28             sub greater {
29 0     0 0   goto >
30             }
31              
32             sub greater_or_equal {
33 0     0 0   goto >e;
34             }
35              
36             sub lesser {
37 0     0 0   goto <
38             }
39              
40             sub lesser_or_equal {
41 0     0 0   goto <e
42             }
43              
44             sub not_equal {
45 0     0 0   goto ≠
46             }
47              
48             1;