line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Fennec::Declare::Magic; |
2
|
12
|
|
|
12
|
|
876
|
use strict; |
|
12
|
|
|
|
|
756
|
|
|
12
|
|
|
|
|
396
|
|
3
|
12
|
|
|
12
|
|
60
|
use warnings; |
|
12
|
|
|
|
|
36
|
|
|
12
|
|
|
|
|
300
|
|
4
|
|
|
|
|
|
|
|
5
|
12
|
|
|
12
|
|
19092
|
use Devel::Declare::Interface; |
|
12
|
|
|
|
|
16644
|
|
|
12
|
|
|
|
|
5076
|
|
6
|
12
|
|
|
12
|
|
16896
|
use Devel::Declare::Parser; |
|
12
|
|
|
|
|
1213332
|
|
|
12
|
|
|
|
|
588
|
|
7
|
12
|
|
|
12
|
|
36240
|
use Devel::Declare::Parser::Fennec; |
|
12
|
|
|
|
|
113352
|
|
|
12
|
|
|
|
|
1260
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
sub import { |
10
|
12
|
|
|
12
|
|
1092420
|
my $class = shift; |
11
|
12
|
|
|
|
|
48
|
my $destination = caller; |
12
|
|
|
|
|
|
|
|
13
|
12
|
|
|
|
|
120
|
enhance( $destination, $_, "fennec" ) for qw/ |
14
|
|
|
|
|
|
|
tests describe it cases case before_each after_each around_each |
15
|
|
|
|
|
|
|
before_all after_all around_all before_case after_case |
16
|
|
|
|
|
|
|
/; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |