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: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |