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 2.584 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )