JAPH with AUTOLOAD

Posted by root Sun, 03 Feb 2008 14:20:00 GMT


#!/usr/bin/perl

JAPH->Just->Another->Perl->Hacker;

package JAPH;

sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}

Posted in  | Tags  | no comments

Comments

RSS feed for this post

Comments are disabled