Select Code to Download

 
 1: sub DESTROY { print "stick a fork in '$_[0]' it's done\n" }
 2:
...
we've left $bar's lexical scope
stick a fork in 'main=ARRAY(0x80fbb0c)' it's done
stick a fork in 'main=HASH(0x80fbbf0)' it's done

1: {
2:   my $foo = "a string";
...

$foo: [a string]
$foo: []

1: {
2:   my $foo = "a string";
...

$foo: [a string]
$foo: [a string]

 1: {
 2:   my $cnt = 5;
...
2
1
BOOM!

 1: sub counter {
 2:   my $cnt = shift;
...
2
1
BOOM!

 1: use IO::Dir;
 2:
...
example3.pl
example4.pl
example7.pl

 1: use strict;
 2: use warnings;
...
67:   
68:   return $self;
69: }