| line |
true |
false |
branch |
|
56
|
0 |
6 |
unless 1 == $nargs |
|
57
|
0 |
6 |
unless defined $target |
|
58
|
0 |
6 |
unless length $target |
|
59
|
0 |
6 |
if ref $target |
|
66
|
124 |
208 |
if $sub =~ /\A_/sx |
|
67
|
0 |
208 |
if $sub =~ /\A(is_|assert_|to_)[[:upper:]]/sx |
|
68
|
8 |
200 |
if $sub =~ /\A[[:upper:]][[:upper:]]/sx |
|
69
|
0 |
200 |
if $sub =~ /\A[[:upper:]]/sx |
|
74
|
6 |
0 |
if ($_[0] =~ /\A([^_]+_)(.*\z)/sx) |
|
81
|
29 |
185 |
if $_[2] |
|
82
|
16 |
169 |
if $_[1] |
|
89
|
17 |
107 |
$_[1] ? : |
|
94
|
12 |
78 |
$_[1] ? : |
|
108
|
6 |
0 |
if ($SHOW_SHADOWED) |
|
123
|
12 |
0 |
if ($SHOW_SHADOWED) |
|
138
|
0 |
0 |
unless exists $clusters{$type} |
|
152
|
20 |
12 |
unless exists $clusters{$type} |
|
185
|
125 |
41 |
if @subs and length $line < $MAX_WIDTH |
|
204
|
0 |
8 |
unless $mro_entry->{'subs'} |
|
205
|
0 |
8 |
if (not keys %subs) { } |
|
228
|
11 |
167 |
if exists $seen_subs->{$sub} |
|
235
|
81 |
204 |
unless my $coderef = $class->can($sub) |
|
238
|
177 |
27 |
if (not defined $currently_visible or $currently_visible != $coderef) |
|
271
|
1 |
7 |
if (1 > @mro_order or 1 >= @mro_order and 1 > keys %{$mro_order[0]{'subs'};}) |
|
280
|
1 |
0 |
unless ($INC{$module_path . '.pm'}) |