Help for this page
use strict; use warnings; ... undef $object; print "Done.\n";
# Created Foo=CODE(0x82cafec) # Hello! # DESTROYing Foo=CODE(0x82cafec) # Done.
sub new { my $class = shift; my $string = "Hello!\n"; return bless( sub { print $string }, $class ); }
www.com | www.net | www.org
No recent polls found