| line |
true |
false |
branch |
|
25
|
0 |
4 |
unless $doUIName |
|
42
|
0 |
13 |
unless read $fh, my $rData, 16 |
|
50
|
0 |
13 |
unless read $fh, $sect{'sectData'}, $size |
|
62
|
4 |
0 |
if defined $offset |
|
63
|
0 |
4 |
unless read $fh, my $strBytes, 2 |
|
66
|
4 |
0 |
if ($strBytes) |
|
67
|
0 |
4 |
unless read $fh, $str, $strBytes |
|
71
|
4 |
0 |
if defined $offset |
|
105
|
0 |
0 |
if @missing |
|
132
|
0 |
0 |
unless defined $params{'lang'} |
|
135
|
0 |
0 |
unless defined $params{'name'} |
|
153
|
1 |
1 |
unless $verResource and exists $$entries{'VERSION'}{'1'}{$lang} |
|
158
|
0 |
1 |
wantarray ? : |
|
170
|
2 |
1 |
unless not defined $lang |
|
186
|
0 |
0 |
unless $verResource and exists $$entries{'VERSION'}{'1'}{$lang} |
|
190
|
0 |
0 |
wantarray ? : |
|
198
|
0 |
5 |
unless $self->_parse_rsrc('rsrc', 'type', $type, 'name', $name, 'lang', $lang) |
|
207
|
1 |
4 |
unless exists $$entries{$type} |
|
209
|
3 |
1 |
unless (defined $lang and exists $$entries{$type}{$name}{$lang}) |
|
215
|
3 |
0 |
unless exists $langs{$lang} |
|
226
|
0 |
5 |
unless -f $fName |
|
230
|
0 |
5 |
unless open my $peFile, '<', $fName |
|
265
|
4 |
35 |
if ($numNames) { } |
|
|
35 |
0 |
elsif ($numIDs) { } |
|
276
|
13 |
22 |
if $level == 1 and exists $Win32::PEFile::rsrcHandler::rsrcTypes{$rsrcId} |
|
280
|
26 |
13 |
if (0 != ($RVA & 2147483648)) { } |
|
301
|
0 |
1 |
if defined $lang and exists $$entries{'VERSION'}{'1'}{$lang}{'FixedFileInfo'} |
|
304
|
0 |
1 |
unless exists $$entries{'VERSION'}{1} |
|
317
|
0 |
1 |
unless (defined $lang) |
|
335
|
1 |
2 |
if ($header{'type'} eq 'VS') { } |
|
|
1 |
1 |
elsif ($header{'type'} eq 'Va') { } |
|
|
1 |
0 |
elsif ($header{'type'} eq 'St') { } |
|
384
|
0 |
1 |
if eof $resIn |
|
409
|
0 |
1 |
if eof $resIn |
|
415
|
0 |
1 |
if eof $resIn |
|
436
|
0 |
1 |
if eof $strTblIn |
|
462
|
7 |
1 |
unless eof $stringsIn |
|
488
|
0 |
1 |
if eof $resIn |
|
495
|
0 |
1 |
unless eof $resIn |
|
517
|
1 |
0 |
unless eof $varIn |
|
529
|
0 |
0 |
unless exists $$self{'SecData'}{'.rsrc'}{'added'} |
|
540
|
0 |
0 |
unless ref $root and ref $path |
|
558
|
0 |
0 |
if 3 & length $tail |
|
561
|
0 |
0 |
unless defined $entry |
|
602
|
0 |
0 |
if 3 & length $tail |
|
612
|
0 |
0 |
unless exists $params{'lang'} |
|
628
|
0 |
0 |
if 3 & 6 + length($vData) |
|
637
|
0 |
0 |
unless defined $value |
|
640
|
0 |
0 |
$len & 3 ? : |
|
642
|
0 |
0 |
if $len & 3 |
|
645
|
0 |
0 |
$len & 3 ? : |
|
651
|
0 |
0 |
if $padding1 |
|
653
|
0 |
0 |
if $padding2 |
|
662
|
0 |
0 |
unless exists $params{'langCPIds'} |
|
678
|
0 |
0 |
unless exists $$self{'SecData'}{'.edata'} |
|
680
|
0 |
0 |
if (exists $$self{'SecData'}{'.edata'}{'added'}) |
|
774
|
0 |
1 |
unless exists $$self{'DataDir'}{'.edata'} |
|
776
|
0 |
1 |
unless exists $$self{'SecData'}{'.edata'}{'Entries'} |
|
784
|
0 |
0 |
unless exists $$self{'DataDir'}{'.edata'} |
|
786
|
0 |
0 |
unless exists $$self{'SecData'}{'.edata'}{'Entries'} |
|
801
|
0 |
2 |
unless exists $$self{'DataDir'}{'.edata'} |
|
802
|
1 |
1 |
if exists $$self{'SecData'}{'.edata'}{'Entries'} |
|
814
|
0 |
1 |
unless open my $peFile, '<', $$self{'-file'} |
|
839
|
0 |
1 |
unless $addr |
|
854
|
0 |
0 |
unless exists $$self{'SecData'}{'.edata'}{'added'} |
|
862
|
0 |
0 |
unless exists $$self{'SecData'}{'.edata'} |
|
864
|
0 |
0 |
if (exists $$self{'SecData'}{'.edata'}{'added'}) |
|
890
|
0 |
1 |
unless exists $$self{'DataDir'}{'.idata'} |
|
892
|
0 |
1 |
unless exists $$self{'SecData'}{'.idata'} |
|
908
|
0 |
2 |
unless exists $$self{'DataDir'}{'.idata'} |
|
910
|
1 |
1 |
unless exists $$self{'SecData'}{'.idata'} |
|
911
|
0 |
2 |
unless exists $$self{'SecData'}{'.idata'} |
|
915
|
0 |
2 |
unless exists $$self{'SecData'}{'.idata'}{'Entries'}{$dll} |
|
925
|
0 |
1 |
unless exists $$idataHdr{'filePos'} |
|
927
|
0 |
1 |
unless open my $peFile, '<', $$self{'-file'} |
|
942
|
0 |
3 |
unless read $dirFile, my $entryData, 20 |
|
947
|
1 |
2 |
unless $dirEntry{'dllNameRVA'} |
|
974
|
0 |
42 |
$isPEPlus ? : |
|
979
|
0 |
42 |
if ($isPEPlus) { } |
|
987
|
2 |
0 |
unless $index or $isOrdinal |
|
989
|
0 |
40 |
if ($isOrdinal) |
|
1015
|
0 |
0 |
unless exists $$self{'SecData'}{'.idata'}{'added'} |
|
1023
|
0 |
0 |
unless exists $$self{'SecData'}{'.idata'} |
|
1025
|
0 |
0 |
if (exists $$self{'SecData'}{'.idata'}{'added'}) |
|
1069
|
0 |
0 |
unless exists $$self{'SecData'}{'certTable'}{'added'} |
|
1077
|
0 |
0 |
unless exists $$self{'SecData'}{'certTable'} |
|
1079
|
0 |
0 |
if (exists $$self{'SecData'}{'certTable'}{'added'}) |