File: C:/strawberry/perl/vendor/lib/Win32/Exe/PE/Header.pm
# Copyright 2004 by Audrey Tang <cpan@audreyt.org>
package Win32::Exe::PE::Header;
use strict;
use base 'Win32::Exe::PE';
use constant SUBFORMAT => (
Magic2 => 'v',
LMajor => 'C',
LMinor => 'C',
CodeSize => 'V',
IDataSize => 'V',
UDataSize => 'V',
EntryPointRVA => 'V',
BaseOfCode => 'V',
Data => 'a*',
);
use constant MEMBER_CLASS => 'Data';
use constant DISPATCH_FIELD => 'Magic2';
use constant DISPATCH_TABLE => (
0x20b => 'PE::Header::PE32Plus',
'*' => 'PE::Header::PE32',
);
1;