| line |
true |
false |
branch |
|
15
|
4602 |
25 |
if (@_) { } |
|
51
|
0 |
0 |
unless defined $loading_file |
|
57
|
13 |
0 |
if (ref $method eq 'CODE') { } |
|
75
|
0 |
42 |
unless (not exists $$fields{"cf_$name"}) |
|
85
|
0 |
5266 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
87
|
0 |
15432 |
unless (defined $name) |
|
91
|
729 |
14703 |
if (my $sub = $self->can("configure_$name")) { } |
|
|
0 |
14703 |
elsif (not exists $$fields{"cf_$name"}) { } |
|
99
|
4653 |
613 |
if (wantarray) { } |
|
112
|
3 |
3 |
$_ =~ /$pat/ ? : |
|
130
|
662 |
1347 |
ref $_ ? : |
|
131
|
0 |
2009 |
unless (exists $$fields{"cf_$from"}) |
|
147
|
0 |
1253 |
ref $_ ? : |
|
148
|
86 |
1167 |
if (not exists $$fields{"cf_$from"}) { } |
|
149
|
0 |
86 |
$raise_err ? : |
|
151
|
430 |
737 |
defined $$self{"cf_$from"} ? : |
|
162
|
271 |
0 |
if (ref $task) { } |
|
171
|
0 |
271 |
if @_ % 2 |
|
188
|
4 |
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 |
13 |
unless ($fields->{$cf}) |