package test;
use vars '$AUTOLOAD';

sub AUTOLOAD {
    my $method = $AUTOLOAD;
    $method =~ s/.*:://;
    
    if ( my $attr = $method =~ m/^get(_.*)/ ) {
        no strict 'refs';
        *{__PACKAGE__ . "::get$attr"} = sub {
            my ($self) = @_;
            return $self->{$attr};
        };
        goto &$AUTOLOAD;
    }
}