Perl Hacker Hash Wednesday

[Discipulus]

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*