package Vehicle;
use strict;
use warnings;
use Carp;
use vars '$AUTOLOAD';

sub new {
    my $class = shift;
    croak "Incorrect number of parameters" if @_ % 2;
    my $self = bless {}, $class;
    $self->_init( @_ );
    return $self;
}

sub AUTOLOAD {
    return   if $AUTOLOAD =~ /::DESTROY$/;
    no strict 'refs';
    my ($key) = $AUTOLOAD =~ /::(\w+)$/;
    *{$AUTOLOAD} = sub {
        my $self = shift;
        if ( exists $self->{$key} ) {
            if ( defined $_[0] ) {
                croak "$key is read only" if $self->_read_only( $key );
                $self->{$key} = $_[0];
            }
            else {
                return $self->{$key};
            }
        }
        else {
            croak "$key is not valid for this class" if ! $self->_valid( $key );
            return undef if ! defined $_[0];
            $self->{$key} = $_[0];
        }
    };
    $AUTOLOAD->( @_ );
}
1;