Initial Commit

database/perl/vendor/lib/Win32/Exe/ResourceTable.pm

@@ -0,0 +1,34 @@
+# Copyright 2004 by Audrey Tang <cpan@audreyt.org>
+
+package Win32::Exe::ResourceTable;
+
+use strict;
+use base 'Win32::Exe::Base';
+use constant FORMAT => (
+    DebugDirectory	    => 'V',
+    TimeStamp		    => 'V',
+    VersionMajor	    => 'v',
+    VersionMinor	    => 'v',
+    NumNameEntry	    => 'v',
+    NumIdEntry		    => 'v',
+    'ResourceEntry::Name'   => [ 'a8', '{$NumNameEntry}', 1 ],
+    'ResourceEntry::Id'	    => [ 'a8', '{$NumIdEntry}', 1 ],
+);
+
+sub set_path {
+    my ($self, $path) = @_;
+    $self->{path} = $path;
+}
+
+sub path {
+    my ($self) = @_;
+    wantarray ? @{$self->{path}} : $self->{path};
+}
+
+sub depth {
+    my ($self) = @_;
+    scalar @{$self->{path}};
+}
+
+
+1;