Select Code to Download

package ObjectPrototype;
use base qw/Exporter/;
@EXPORT=qw(new);
sub new { my $class=shift; bless {@_},$class }

package Foo;
use ObjectPrototype;
package Bar;
use ObjectPrototype;