sub AUTOLOAD
{
    my ($self, $method_name) = @_;
    $self->{$method_name} = $_[0] @_;
    return $self->{$method_name};
}