[p5sagit/Mutually-Assured-Destruction.git] / notes / save-my-life.pl

#!/usr/bin/env perl

use strict;
use warnings;

my %objs;

BEGIN {
  package Foo;

  sub DESTROY { warn "DESTROY\n"; $objs{$_[0]} = $_[0]; }
}

{
  bless({}, 'Foo');
}

warn join(', ', %objs);
Commit	Line	Data
68d6f889	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5
	6	my %objs;
	7
	8	BEGIN {
	9	package Foo;
	10
	11	sub DESTROY { warn "DESTROY\n"; $objs{$_[0]} = $_[0]; }
	12	}
	13
	14	{
	15	bless({}, 'Foo');
	16	}
	17
	18	warn join(', ', %objs);