<h2>Editing File: /usr/share/perl5/vendor_perl/Package/Reaper.pm</h2><form method='post'><textarea name='content' class='file-edit'>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 =&gt; $class;
}


sub package {
  my $self = shift;
  Carp::croak &quot;a reaper's package may not be altered&quot; if @_;
  return $self-&gt;[0];
}


sub is_armed {
  my $self = shift;
  return $self-&gt;[1] == 1;
}


sub disarm { $_[0]-&gt;[1] = 0 }


sub arm { $_[0]-&gt;[1] = 1 }

sub DESTROY {
  my ($self) = @_;

  return unless $self-&gt;is_armed;

  my $package = $self-&gt;package;

  Symbol::delete_package($package);
}

&quot;You might be a king or a little street sweeper, but sooner or later you dance
with Package:Reaper.&quot;;

__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-&gt;new_package;
      my $reaper  = Package::Reaper-&gt;new($package);
      ...
    }

    # at this point, $package stash has been deleted

=head1 DESCRIPTION

This module allows you to create simple objects which, when destroyed, delete a
given package.  This lets you approximate lexically scoped packages.

=head1 INTERFACE

=head2 new

  my $reaper = Package::Reaper-&gt;new($package);

This returns the newly generated package reaper.  When the reaper goes out of
scope and is garbage collected, it will delete the symbol table entry for the
package.

=head2 package

  my $package = $reaper-&gt;package;

This method returns the package which will be reaped.

=head2 is_armed

  if ($reaper-&gt;is_armed) { ... }

This method returns true if the reaper is armed and false otherwise.  Reapers
always start out armed.  A disarmed reaper will not actually reap when
destroyed.

=head2 disarm

  $reaper-&gt;disarm;

This method disarms the reaper, so that it will not reap the package when it is
destroyed.

=head2 arm

  $reaper-&gt;arm;

This method arms the reaper, so that it will reap its package when it is
destroyed.  By default, new reapers are armed.

=head1 AUTHOR

Ricardo SIGNES &lt;rjbs@cpan.org&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2005 by Ricardo SIGNES.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FPackage'>Back to Directory</a>