Select Code to Download

package Vehicle;
use strict;
...
    $AUTOLOAD->( @_ );
}
1;

package Bike;
use base Vehicle;
...
    return defined $valid{$option} ? 1 : 0;
}
1;

package Car;
use base Vehicle;
...
    return defined $valid{$option} ? 1 : 0;
}
1;

#!/usr/bin/perl
use strict;
...

# We don't allow Frankestein cars
print "My first car had ", $car_1->Wheels, " wheels\n";