Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
undef $object;

print "Done.\n";
  2. or download this
    # Created Foo=CODE(0x82cafec)
# Hello!
# DESTROYing Foo=CODE(0x82cafec)
# Done.
  3. or download this
    sub new {
    my $class  = shift;
    my $string = "Hello!\n";
    return bless( sub { print $string }, $class );
}