package Foo::Bar;
use vars qw( $VERSION );
...

package Foo::Bar::_implement;
use Dood::Dad;

sub helper { ... }

sub Foo::Bar::objectPackage {
    "Foo::Bar::Object";
}

sub Foo::Bar::new { ... }

sub Foo::Bar::Object::method { ... }

...