Select Code to Download

CBase *p;
p = new(CDerived);
p->virtual_function();

package Dog::Proxy;

...
}

1;

package Dog::Base;

...
}

1;

package Dog::Cocker;

...
}

1;

#!/usr/local/bin/perl -wT
# test.pl
...

$cosette->bark; $cosette->wag_tail;
$moose->bark; $moose->wag_tail;

$VAR1 = bless( {
                 'breed' => {
...
tail wagging
shriek
tail over back