The start of the Perl half of RPM::Package support.

CVS patchset: 4024
CVS date: 2000/08/06 08:57:09

diff --git a/Perl-RPM/RPM/Package.pm b/Perl-RPM/RPM/Package.pm
new file mode 100644 (file)
index 0000000..4b54b5c
--- /dev/null
+++ b/Perl-RPM/RPM/Package.pm
@@ -0,0 +1,41 @@
+###############################################################################
+#
+# This file copyright (c) 2000 by Randy J. Ray, all rights reserved
+#
+# Copying and distribution are permitted under the terms of the Artistic
+# License as distributed with Perl versions 5.002 and later.
+#
+###############################################################################
+#
+#   $Id: Package.pm,v 1.1 2000/08/06 08:57:09 rjray Exp $
+#
+#   Description:    Perl-level glue and such for the RPM::Package class, the
+#                   methods and accessors to package operations.
+#
+#   Functions:      
+#
+#   Libraries:      RPM
+#                   RPM::Header
+#
+#   Global Consts:  
+#
+#   Environment:    
+#
+###############################################################################
+
+package RPM::Package;
+
+use 5.005;
+use strict;
+use vars qw($VERSION $revision);
+use subs qw();
+
+use RPM;
+use RPM::Header;
+
+$VERSION = '0.27';
+$revision = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+
+1;
+
+__END__