sub AUTOLOAD {

    my ($self,$newval) = @_;

    if ($AUTOLOAD =~ /.*::get_(\w+)/){
        return $self->{$1};
    }elsif($AUTOLOAD =~ /.*::set_(\w+)/){
        $self->{$1} = $newval;
    }else{
        croak "$AUTOLOAD is not a method";
    }

}