package Foo;

sub go { print 42; }

package Bar;

use base 'Foo';

sub new { return bless { }, $_[0] }

Maker->make;