Initial Commit

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

@@ -0,0 +1,37 @@
+# Copyright 2004 by Audrey Tang <cpan@audreyt.org>
+
+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;