sub AUTOLOAD {
my $name = $AUTOLOAD;
$name =~ s/^.*:://;
*$name = sub { ....... };
goto &$name;
} |
| Forward to Schwartzian Transform
Back to Extension modules Up to Stages of a Perl Programmer section index Up to YAPC 2000 course index |
YAPC 2000: Stages of a Perl Programmer - 39
Copyright © 2000, Nathan Torkington
|