Package-Generator
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Package/Reaper.pm view on Meta::CPAN
use Carp ();
use Symbol ();
sub new {
my ($class, $package) = @_;
# Do I care about checking $package with _CLASS and/or exists_package?
# Probably not, for now. -- rjbs, 2006-06-05
my $self = [ $package, 1 ];
bless $self => $class;
}
sub package {
my $self = shift;
Carp::croak "a reaper's package may not be altered" if @_;
return $self->[0];
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.178 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )