| line |
true |
false |
branch |
|
87
|
23 |
3 |
if ($export_mode eq 'OK') { } |
|
|
0 |
3 |
elsif ($export_mode) { } |
|
109
|
0 |
18 |
if @fragments |
|
132
|
18 |
0 |
if ($params{'local'}) { } |
|
180
|
1 |
8 |
if (my $symbol = $args{'ifdef'}) |
|
186
|
1 |
8 |
unless defined $result |
|
277
|
19 |
1 |
if $argindex > $wasindex |
|
280
|
1 |
9 |
if $params{'ifdef'} |
|
288
|
1 |
9 |
if $params{'ifdef'} |
|
292
|
1 |
9 |
unless defined $result |
|
310
|
2 |
7 |
if ($curpos < $sizeof) |
|
315
|
1 |
8 |
if ($with_tail) |
|
320
|
9 |
0 |
unless $done_carp |
|
323
|
8 |
1 |
if ($arg_style eq 'list') { } |
|
|
1 |
0 |
elsif ($arg_style eq 'hashref') { } |
|
324
|
1 |
7 |
$with_tail ? : |
|
333
|
0 |
1 |
$with_tail ? : |
|
350
|
1 |
8 |
$no_length_check ? : |
|
424
|
0 |
17 |
unless my($member, $offs, $size, $sign) = $def =~ /^([\w.]+)@(\d+)\+(\d+)([us])$/u |
|
427
|
0 |
17 |
unless $member eq $membername |
|
430
|
0 |
17 |
if ($offs > $_[1]) { } |
|
|
0 |
17 |
elsif ($offs < $_[1]) { } |
|
440
|
17 |
0 |
if (exists $struct_formats{"$size$sign"}) { } |
|
|
0 |
0 |
elsif ($size == 8 and $sign eq 'u') { } |
|
446
|
0 |
0 |
unless ($done_u64) |
|
511
|
0 |
2 |
unless my($member, $offs, $size) = $def =~ /^([\w.]+)@(\d+)\+(\d+)$/u |
|
514
|
0 |
2 |
unless $member eq $membername |
|
517
|
0 |
2 |
if ($offs > $_[1]) { } |
|
|
0 |
2 |
elsif ($offs < $_[1]) { } |
|
558
|
0 |
1 |
unless my($member) = $def =~ /^([\w.]+)@/u |
|
622
|
0 |
18 |
unless @fragments |
|
636
|
0 |
18 |
unless defined $modulename |
|
642
|
0 |
18 |
unless open my $source_fh, "> $sourcename" |
|
650
|
0 |
18 |
unless (defined $objname) |
|
658
|
0 |
18 |
unless (defined $exename) |
|
664
|
0 |
18 |
unless open my $runh, "./$exename |" |
|
685
|
0 |
18 |
if (@exports) |
|
690
|
13 |
5 |
if (@exports_ok) |
|
742
|
0 |
0 |
unless open my $outfile, ">", $filename |
|
777
|
1 |
0 |
if (defined $value) { } |