| line |
true |
false |
branch |
|
34
|
5 |
0 |
$is eq 'rw' ? : |
|
50
|
0 |
8 |
if defined $attr_indexes{$attr_name} |
|
52
|
0 |
8 |
if defined $glob_attr |
|
55
|
1 |
7 |
if ($predicates->{'glob'}) |
|
59
|
8 |
0 |
$is eq 'rw' ? : |
|
60
|
1 |
7 |
if (defined $glob_attr) { } |
|
61
|
1 |
0 |
if $is eq 'rw' |
|
65
|
7 |
0 |
if $is eq 'rw' |
|
71
|
0 |
0 |
if @_ > 1 |
|
|
1 |
0 |
if @_ > 1 |
|
|
1 |
0 |
if @_ > 1 |
|
|
1 |
0 |
if @_ > 1 |
|
|
1 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
72
|
0 |
8 |
if $@ |
|
81
|
1 |
1 |
if (defined $glob_attr) { } |
|
88
|
1 |
7 |
if (defined $glob_attr and $attr_name eq $glob_attr) { } |
|
96
|
2 |
0 |
unless (*{"${caller}::new";}{'CODE'}) |
|
97
|
0 |
1 |
if (exists $args{'bar'}) |
|
|
0 |
1 |
if (exists $args{'baz'}) |
|
|
0 |
1 |
if (exists $args{'foo'}) |
|
|
0 |
1 |
if (exists $args{'quux'}) |
|
|
0 |
1 |
if (exists $args{'qux'}) |
|
|
0 |
1 |
if (exists $args{'bar'}) |
|
|
1 |
0 |
if (exists $args{'baz'}) |
|
|
0 |
1 |
if (exists $args{'foo'}) |
|
98
|
0 |
2 |
if $@ |