summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm')
-rwxr-xr-xMaster/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm38
1 files changed, 38 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm b/Master/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm
new file mode 100755
index 00000000000..433be495ea6
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/Win32/Exe/Resource.pm
@@ -0,0 +1,38 @@
+# $File: //local/member/autrijus/Win32-Exe/lib/Win32/Exe/Resource.pm $ $Author: autrijus $
+# $Revision: #7 $ $Change: 1130 $ $Date: 2004-02-17T15:40:29.640821Z $
+
+package Win32::Exe::Resource;
+
+use strict;
+use base 'Win32::Exe::Base';
+
+sub object {
+ my ($self) = @_;
+ return $self;
+}
+
+sub path {
+ my ($self) = @_;
+ return $self->parent->path;
+}
+
+sub CodePage {
+ return 1252;
+}
+
+sub PathName {
+ my ($self) = @_;
+ return $self->{pathname} || $self->first_parent('ResourceEntry')->PathName;
+}
+
+sub SetPathName {
+ my ($self, $value) = @_;
+ $self->{pathname} = $value;
+}
+
+sub Data {
+ my ($self) = @_;
+ return $self->dump;
+}
+
+1;