no warnings 'experimental'; use feature 'isa'; package Perl::Hacker; sub born { my $class = shift; return bless {}, $class } DESTROY { my $self = shift; print "Remember hacker that you are Hash and unto Hash you shall r +eturn\n"; } package main; my $hacker = Perl::Hacker->born(); print "JAPH\n" if $hacker isa Perl::Hacker; # long and fruitful 100 years life of happy hacking.. $hacker = {};
L*
In reply to Perl Hacker Hash Wednesday by Discipulus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |