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 ? : |