package Foo::Bar::_implement;
sub Foo::Bar::new {
    my $class = shift;
    my $thingy = bless \ my $ref, $class;

    package Foo::Bar;
    ego ($thingy,{@_});
    package Foo::Bar::_implement;

    $thingy;
}