[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/xampp182/perl/vendor/lib/Win32/Exe/PE/Header/ [ Home ]
File: PE32.pm
# Copyright 2004 by Audrey Tang <cpan@audreyt.org>

package Win32::Exe::PE::Header::PE32;

use strict;
use base 'Win32::Exe::PE::Header';
use constant SUBFORMAT => (
    BaseOfData      => 'V',
    ImageBase       => 'V',
    SectionAlign    => 'V',
    FileAlign       => 'V',
    OSMajor     => 'v',
    OSMinor     => 'v',
    UserMajor       => 'v',
    UserMinor       => 'v',
    SubsysMajor     => 'v',
    SubsysMinor     => 'v',
    _           => 'a4',
    ImageSize       => 'V',
    HeaderSize      => 'V',
    FileChecksum    => 'V',
    SubsystemTypeId => 'v',
    DLLFlags        => 'v',
    StackReserve    => 'V',
    StackCommit     => 'V',
    HeapReserve     => 'V',
    HeapCommit      => 'V',
    LoaderFlags     => 'V',
    NumDataDirs     => 'V',
    'DataDirectory' => [
    'a8', '{$NumDataDirs}', 1
    ],
    'Section'       => [
    'a40', '{$NumSections}', 1
    ],
    Data        => 'a*',
);
use constant SUBSYSTEM_TYPES => [qw(
    _       native  windows     console _
    _       _       posix       _       windowsce
)];
use constant ST_TO_ID => {
    map { (SUBSYSTEM_TYPES->[$_] => $_) } (0 .. $#{+SUBSYSTEM_TYPES})
};
use constant ID_TO_ST => { reverse %{+ST_TO_ID} };

sub st_to_id {
    my ($self, $name) = @_;
    return $name unless $name =~ /\D/;
    return(+ST_TO_ID->{lc($name)} || die "No such type: $name");
}

sub id_to_st {
    my ($self, $id) = @_;
    return(+ID_TO_ST->{$id} || $id);
}

sub Subsystem {
    my ($self) = @_;
    return $self->id_to_st($self->SubsystemTypeId);
}

sub SetSubsystem {
    my ($self, $type) = @_;
    $self->SetSubsystemTypeId($self->st_to_id($type));
}


sub ExpectedOptHeaderSize { 224 };


1;