package Bike;
use base object;

use strict;
use warnings;
use Carp;

sub defaults {{ Wheels => 2,
                Doors => undef,
                Color => undef,
                Passengers => 2,
               }};

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