in reply to Re^2: Overloading different instances differently.
in thread Overloading different instances differently.

You are assuming that your code destroys everything in a package properly. Let's test that: 
#! /usr/bin/perl -w
use strict;

my $s;

print "Creating functions\n";
my $x = TellDestroy->new(sub {print $s}, "variable sub");
*Foo::function = TellDestroy->new(sub {print $s}, "glob sub");

print "Clearing variable\n";
undef $x;

print "Clearing glob\n";
undef %Foo::;

print "Exiting\n";

package TellDestroy;
use Scalar::Util qw(refaddr);
my %function_name;

sub new {
  my ($class, $self, $name) = @_;
  $function_name{refaddr($self)} = $name;
  bless $self, $class;
}

sub DESTROY {
  my $self = shift;
  my $name = delete $function_name{ refaddr($self) };
  print STDERR "$name is going away\n";
}
__END__

[download]
produces the following output for me on Perl 5.8.6 under Linux: 
Name "Foo::function" used only once: possible typo at check line 8.
Creating functions
Clearing variable
variable sub is going away
Clearing glob
Exiting
glob sub is going away

[download]
So the function survived to global destruction. I take that to mean that Perl doesn't clean up packages the way you wanted it to.

Replies are listed 'Best First'.
Re^4: Overloading different instances differently. (Symbol::delete_package)
by lodin (Hermit) on Feb 23, 2008 at 15:51 UTC

    The long-time standard module Symbol to the rescue. Just change undef %Foo::; to delete_package('Foo');. 

    #! /usr/bin/perl -w
use strict;
use Symbol 'delete_package';

my $s;

print "Creating functions\n";
my $x = TellDestroy->new(sub {print $s}, "variable sub");
*Foo::function = TellDestroy->new(sub {print $s}, "glob sub");

print "Clearing variable\n";
undef $x;

print "Clearing glob\n";
delete_package('Foo');

print "Exiting\n";

package TellDestroy;
use Scalar::Util qw(refaddr);
my %function_name;

sub new {
  my ($class, $self, $name) = @_;
  $function_name{refaddr($self)} = $name;
  bless $self, $class;
}

sub DESTROY {
  my $self = shift;
  my $name = delete $function_name{ refaddr($self) };
  print STDERR "$name is going away\n";
}

__END__
Name "Foo::function" used only once: possible typo at ...
Creating functions
Clearing variable
variable sub is going away
Clearing glob
glob sub is going away
Exiting

    [download]

    lodin

[reply]
[d/l]
[select]

In Section Meditations