2005-07-16から1日間の記事一覧
use strict; package Delegater; our $AUTOLOAD; sub new { my ($class, $object) = @_; my $self = bless \$object, $class; return $self; } sub AUTOLOAD { my $self = shift; return if $AUTOLOAD =~ /::DESTROY$/; my $rex = sprintf '^%s::', ref $sel…