| line |
true |
false |
branch |
|
29
|
21 |
12 |
if (ref $arglist->[0]) { } |
|
|
12 |
0 |
elsif (my($flag, $key) = $arglist->[0] =~ /^([\-:])(\w+)/) { } |
|
33
|
3 |
9 |
$flag eq ':' ? : |
|
50
|
21 |
0 |
if $self->{'cf_type_name'} |
|
59
|
9 |
18 |
if (ref $desc->[0] eq 'SCALAR') { } |
|
|
18 |
0 |
elsif (my($flag, $key) = $desc->[0] =~ /^([\-:])(\w+)/) { } |
|
62
|
9 |
0 |
if (not ref $value) { } |
|
|
0 |
0 |
elsif (ref $value eq 'CODE') { } |
|
74
|
0 |
18 |
$flag eq ':' ? : |
|
75
|
3 |
15 |
if ($$fields{"cf_$key"}) { } |
|
78
|
0 |
15 |
unless my $sub = $self->can("option_$key") |
|
109
|
18 |
3 |
unless defined $key |
|
115
|
3 |
6 |
ref $value ? : |