sub AUTOLOAD {
    no strict 'refs';
    my ($self, $newval) = @_;

    # was it a get_... method?
    if ( $AUTOLOAD =~ /.*::get(_\w+)/ ) {
        my $attr_name = $1;
        *{ AUTOLOAD } = sub { return $_[ 0 ]->{ $attr_name } };
        return $self->{ $attr_name };
    }

    # was it a set_... method?
    if ( $AUTOLOAD =~ /.*::set(_\w+)/ ) {
        my $attr_name = $1;
        *{ AUTOLOAD } = sub { $_[ 0 ]->{ $attr_name } = $_[ 1 ]; return } };
        $self->{ $attr_name } = $newval;
        return;
    }
    # Whups!  Bad sub
    croak "No such method: $AUTOLOAD";
}