summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/Module/P5Z.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/Module/P5Z.pm')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/Module/P5Z.pm34
1 files changed, 34 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/Module/P5Z.pm b/Master/tlpkg/tlperl0/lib/Module/P5Z.pm
new file mode 100755
index 00000000000..32f6f2b59d6
--- /dev/null
+++ b/Master/tlpkg/tlperl0/lib/Module/P5Z.pm
@@ -0,0 +1,34 @@
+package Module::P5Z;
+
+use 5.005;
+use strict;
+use File::pushd ();
+use Archive::Tar ();
+
+use vars qw{$VERSION};
+BEGIN {
+ $VERSION = '1.16';
+}
+
+
+
+
+
+#####################################################################
+# Constructor
+
+sub read {
+ my $class = shift;
+ my $self = bless { @_ }, $class;
+
+ # Apply defaults
+ $self->{tempd} ||= File::pushd::tempd();
+
+ $self;
+}
+
+sub tempd {
+ $_[0]->{tempd};
+}
+
+1;