Help for this page

Select Code to Download


  1. or download this
    package ObjectPrototype;
use base qw/Exporter/;
@EXPORT=qw(new);
sub new { my $class=shift; bless {@_},$class }
  2. or download this
    package Foo;
use ObjectPrototype;
package Bar;
use ObjectPrototype;