JAPH with AUTOLOAD

Feb 03
2008
Comments Off 
#!/usr/bin/perl
 
JAPH->Just->Another->Perl->Hacker;
 
package JAPH;
 
sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}
Written by Vidul in: JAPH, Perl |

Comments are closed.

Calendar

February 2008
M T W T F S S
« Jan   Mar »
 123
45678910
11121314151617
18192021222324
2526272829  

Tags