1 package CoolStackPkgBase; 2 use strict; 3 4 sub allocate($) 5 { 6 my $pkgName = shift; 7 8 my $self = {}; 9 bless($self, $pkgName); 10 return $self; 11 } 12 13 sub createPackages 14 { 15 print "Packaging implementation can go here\n"; 16 } 17 18 sub createSrcPackages 19 { 20 print "Source packaging implementation can go here\n"; 21 } 22 23 1; 24