sub AUTOLOAD {
    my $_call = our $AUTOLOAD;
    $_call =~ s/.*:://;
    my $self = shift;
    my $param = shift;
    ...
    $self->{$_call} = $_param || return $self->{$_call};
}