Files
GseTDDUebungKCLR/database/perl/vendor/lib/Win32/Exe/PE.pm
Riley Schneider b732d8d4b5 Initial Commit
2025-12-03 16:38:10 +01:00

24 lines
475 B
Perl

# Copyright 2004 by Audrey Tang <cpan@audreyt.org>
package Win32::Exe::PE;
use strict;
use base 'Win32::Exe';
use constant SUBFORMAT => (
Machine => 'v',
NumSections => 'v',
TimeStamp => 'V',
SymbolTable => 'V',
_ => 'a4',
OptHeaderSize => 'v',
Characteristics => 'v',
Data => 'a*',
);
use constant DISPATCH_FIELD => 'OptHeaderSize';
use constant DISPATCH_TABLE => (
'0' => '',
'*' => 'PE::Header',
);
1;