sub AUTOLOAD { my $self = shift; $self->{$AUTOLOAD} = shift if @_; $self->{$AUTOLOAD}; }