demonstrate bless/cast order doesn't affect DESTROY versus magic destruction order

diff --git a/notes/destruction-order.pl b/notes/destruction-order.pl
index 6d465f8..2fe911e 100644 (file)
--- a/notes/destruction-order.pl
+++ b/notes/destruction-order.pl
@@ -25,6 +25,21 @@ my $wiz = wizard data => sub { $_[1] },
 
 {
   warn "Stanza 2\n";
+
+  my %foo;
+  
+  my $foo = \%foo;
+  
+  cast $foo, $wiz, '$foo';
+
+  cast %foo, $wiz, '%foo';
+  
+  bless($foo, 'Foo');
+
+}
+
+{
+  warn "Stanza 3\n";
   
   my $foo = do {
     my %foo;