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;