| line |
true |
false |
branch |
|
140
|
1 |
1 |
if ($_ eq '-named_constructors') { } |
|
148
|
8 |
1 |
unless keys %syms |
|
152
|
8 |
1 |
if (delete $syms{'struct'}) |
|
158
|
1 |
8 |
if (delete $syms{'readonly_struct'}) |
|
165
|
0 |
9 |
if (keys %syms) |
|
214
|
1 |
7 |
if (my $predicate = $opts{'predicate'}) |
|
243
|
3 |
5 |
if ($named) { } |
|
248
|
1 |
1 |
unless exists $values{$_} or $optional->{$_} |
|
252
|
1 |
4 |
if (my($extrakey) = keys %values) |
|
262
|
1 |
9 |
unless @_ == $fieldcount |
|
277
|
1 |
7 |
if @_ > 1 |
|
279
|
0 |
1 |
if @_ > 1 |
|
280
|
18 |
2 |
$lvalue ? : |
|
293
|
0 |
0 |
if ($named) { } |
|
299
|
0 |
0 |
unless exists $values{$_} or $optional{$_} |
|
310
|
0 |
0 |
unless @_ == $fieldcount |
|
316
|
0 |
0 |
$lvalue ? : |
|
333
|
0 |
0 |
unless eval "$code; 1" |
|
438
|
0 |
0 |
unless $INC{'Data/Dump.pm'} |
|
444
|
0 |
0 |
unless my $meta = $_STRUCT_PACKAGES{$ctx->class} |
|
452
|
0 |
0 |
$meta->{'named'} ? : |
|
474
|
0 |
0 |
unless $GD |