Help for this page

Select Code to Download

Select or download this

package A;
sub new { bless {}, shift }
...
print A->new->x, "\n";
print B->new->x, "\n";
print C->new->x, "\n";