Select Code to Download

print 'My enemy must ', $enemy->obey(),
       undef($enemy),
      '. His phaser is named ', $phaser->{name},
       eval('$enemy->exterminate()'),
      ". Bye!\n";

*** Before print statement ***

...
                 undef($enemy)                               |
                 obey()<-ref---------------------------------+
                 'My enemy must '

*** Executing through print, just after undef step ***

...
                 undef($enemy)                               |
                 obey()<-ref---------------------------------+
                 'My enemy must '

*** Print just finished, now removing items from stack ... ***

...
                                                             |
argument stack:  obey()<-ref---------------------------------+
                 'My enemy must '

$enemy--->undef                 Dalek:{phaser=> + } (ref=0)<-+
                                                |            |
...
                                                             |
argument stack:  obey()<-ref---------------------------------+
                 'My enemy must '

$enemy--->undef                 Dalek:{phaser=>   } (ref=0)<-+
                                                             |
...
                                                             |
argument stack:  obey()<-ref---------------------------------+
                 'My enemy must '

$enemy--->undef                 {FREE MEMORY              }

$phaser------------------------>Phaser:{name=>'Exterminator'} (ref=1)

argument stack:  'My enemy must '

#!/usr/bin/perl              
use Data::Dumper;            
...
         
Dump($b);
Dump($t);

$ perl ex_destructo.pl
--- before print ---
...
SV = RV(0x8c650a4) at 0x8c65098
  REFCNT = 1
  FLAGS = (PADMY)