2006-09-06から1日間の記事一覧
package RecursiveMethod; use strict; use warnings; use Carp; use vars qw/$AUTOLOAD/; sub new { my $class = shift; my $args_ref = shift || {}; bless $args_ref,$class; } sub AUTOLOAD { my $self = shift; my ($method) = ( $AUTOLOAD =~ /.*::(.+…