Help for this page

Select Code to Download


  1. or download this
    package object;
use Carp;
...
   return $old;
}    
1;
  2. or download this
    package Car;
use base object;
...

sub readonly { qw/Wheels/ };                 
1;
  3. or download this
    package Bike;
use base object;
...

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