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.