Select Code to Download

package object;
use Carp;
...
   return $old;
}    
1;

package Car;
use base object;
...

sub readonly { qw/Wheels/ };                 
1;

package Bike;
use base object;
...

sub readonly { qw/Wheels Passengers/ };
1;