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 strict;
use warnings;
package Package::Reaper;
{
$Package::Reaper::VERSION = '1.106';
}
use 5.008;
# ABSTRACT: pseudo-garbage-collection for packages
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];
}
sub is_armed {
my $self = shift;
return $self->[1] == 1;
}
sub disarm { $_[0]->[1] = 0 }
sub arm { $_[0]->[1] = 1 }
sub DESTROY {
my ($self) = @_;
return unless $self->is_armed;
my $package = $self->package;
Symbol::delete_package($package);
}
"You might be a king or a little street sweeper, but sooner or later you dance
with Package:Reaper.";
__END__
=pod
=encoding UTF-8
=head1 NAME
Package::Reaper - pseudo-garbage-collection for packages
=head1 VERSION
version 1.106
=head1 SYNOPSIS
use Package::Generator;
use Package::Reaper;
{
my $package = Package::Generator->new_package;
my $reaper = Package::Reaper->new($package);
...
}
# at this point, $package stash has been deleted
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.220 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )