notes/save-my-life.pl

   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);