X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=notes%2Fsave-my-life.pl;fp=notes%2Fsave-my-life.pl;h=2e1e7482dadd0480dc1765f994191d39af95a758;hb=68d6f889e0de19fe2d53e0036c1f94a82f94e55b;hp=0000000000000000000000000000000000000000;hpb=f7926535e963d2b6c3272cdf60e757d5151d5321;p=p5sagit%2FMutually-Assured-Destruction.git

diff --git a/notes/save-my-life.pl b/notes/save-my-life.pl
new file mode 100644
index 0000000..2e1e748
--- /dev/null
+++ b/notes/save-my-life.pl
@@ -0,0 +1,18 @@
+#!/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);