| line |
true |
false |
branch |
|
27
|
10 |
0 |
if $^V lt v5.43.4 |
|
34
|
0 |
10 |
unless $ok |
|
158
|
1 |
1 |
if ($_ eq '-named_constructors') { } |
|
166
|
11 |
1 |
unless keys %syms |
|
170
|
11 |
1 |
if (delete $syms{'struct'}) |
|
176
|
1 |
11 |
if (delete $syms{'readonly_struct'}) |
|
183
|
0 |
12 |
if (keys %syms) |
|
232
|
1 |
14 |
if (my $predicate = $opts{'predicate'}) |
|
261
|
0 |
0 |
if ($named) { } |
|
266
|
0 |
0 |
unless exists $values{$_} or $optional->{$_} |
|
270
|
0 |
0 |
if (my($extrakey) = keys %values) |
|
280
|
0 |
0 |
unless @_ == $fieldcount |
|
295
|
0 |
0 |
if @_ > 1 |
|
297
|
0 |
0 |
if @_ > 1 |
|
298
|
0 |
0 |
$lvalue ? : |
|
312
|
5 |
10 |
if ($named) { } |
|
318
|
1 |
1 |
unless exists $values{$_} or $optional{$_} |
|
329
|
1 |
13 |
unless @_ == $fieldcount |
|
335
|
14 |
1 |
$lvalue ? : |
|
339
|
0 |
33 |
if $name =~ /[()]/u |
|
347
|
27 |
6 |
if ($var eq '$' . $name) { } |
|
366
|
0 |
15 |
unless (eval "$code; 1") |
|
445
|
0 |
4 |
unless (defined $class and $struct->isa("Struct::Dumb::Struct")) |
|
451
|
1 |
3 |
unless $class =~ /::/u |
|
454
|
0 |
4 |
unless ($meta) |
|
525
|
0 |
2 |
unless $INC{'Data/Dump.pm'} |
|
531
|
6 |
3 |
unless $_STRUCT_PACKAGES{$ctx->class} |
|
539
|
2 |
4 |
$dump->{'named'} ? : |
|
560
|
1 |
0 |
unless $GD |