JAPH, part 2.

作者：   發佈於：  

Based on previous JAPH post, I figured that I can really do it this way: 

#!/usr/bin/env perl -l

*Just::AUTOLOAD = *Perl::AUTOLOAD = sub {
    $AUTOLOAD =~ /.*::(.+?)$/;
    join ' ', $_[0], $1, $_[1];
};

print Another Just Hacker Perl;

Enjoy.