Help for this page

Select Code to Download


  1. or download this
    package Car;
our @ISA = qw(Vehicle);
# nothing related to Class::SingletonProxy goes here!

sub wheels { 4 }
  2. or download this
    package MyCar;
use base 'Class::SingletonProxy';

sub SINGLETON { Car->new('Ferrary', 'F40', 'red') }
  3. or download this
    MyCar->go_supermarket(speed => 200);