| line |
true |
false |
branch |
|
24
|
0 |
8 |
if $class eq __PACKAGE__ |
|
33
|
0 |
32 |
unless my $export_name = eval "$class->${export_sub}_keyword" |
|
50
|
0 |
3 |
@_ ? : |
|
52
|
0 |
3 |
unless $when eq "before" or $when eq "after" |
|
65
|
0 |
6 |
unless $when eq "before" or $when eq "after" |
|
81
|
0 |
28 |
unless ref $action and ref $action eq 'CODE' || ref $action eq 'HASH' |
|
84
|
3 |
25 |
if (@args) |
|
97
|
14 |
14 |
$prefilters ? : |
|
|
14 |
14 |
$postfilters ? : |
|
114
|
0 |
12 |
$options{'base'} ? : |
|
123
|
3 |
2 |
$pattern ? : |
|
132
|
0 |
1 |
substr($uri, -1, 1) eq '/' ? : |
|
136
|
1 |
48 |
if (not ref $action) { } |
|
|
0 |
48 |
elsif (ref $action eq 'HASH') { } |
|
|
0 |
48 |
elsif (ref $action ne 'CODE') { } |
|
138
|
0 |
1 |
$action =~ /::/u ? : |
|
140
|
0 |
0 |
unless scalar keys %$action == 1 |
|
150
|
48 |
1 |
if (defined $subnames and Sub::Util::subname($action) =~ /__ANON__/u) |
|
160
|
0 |
24 |
if ref $val eq "ARRAY" and @$val > 0 |
|
161
|
0 |
24 |
if defined $val |