| line |
true |
false |
branch |
|
15
|
7719 |
62 |
if (@_) { } |
|
51
|
0 |
0 |
unless defined $loading_file |
|
57
|
20 |
0 |
if (ref $method eq 'CODE') { } |
|
75
|
0 |
90 |
if (exists $$fields{"cf_$name"}) |
|
85
|
0 |
8801 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
87
|
0 |
26319 |
unless (defined $name) |
|
91
|
1565 |
24754 |
if (my $sub = $self->can("configure_$name")) { } |
|
|
0 |
24754 |
elsif (not exists $$fields{"cf_$name"}) { } |
|
99
|
7803 |
998 |
if (wantarray) { } |
|
112
|
3 |
3 |
$_ =~ /$pat/ ? : |
|
130
|
898 |
2281 |
ref $_ ? : |
|
131
|
0 |
3179 |
unless (exists $$fields{"cf_$from"}) |
|
147
|
0 |
3778 |
ref $_ ? : |
|
148
|
171 |
3607 |
if (not exists $$fields{"cf_$from"}) { } |
|
149
|
0 |
171 |
$raise_err ? : |
|
151
|
884 |
2723 |
defined $$self{"cf_$from"} ? : |
|
162
|
285 |
0 |
if (ref $task) { } |
|
171
|
0 |
285 |
if @_ % 2 |
|
188
|
6 |
0 |
if $$fields{"cf_$name"} |
|
189
|
0 |
0 |
if $self->can("configure_$name") |
|
204
|
0 |
0 |
unless my $sub = $self->can("read_file_$ext") |
|
222
|
0 |
19 |
unless ($fields->{$cf}) |