{
package Foo;

use Class::Std;
use Class::Std::Utils;
use Foo::More;

sub new {
  my ($class) = @_;
  my $new_object = bless anon_scalar(), $class;
  return $new_object;
}

sub bar {
  my ($self) = @_
  #...
}
}

{
package Foo::More;

sub baz {
  my ($self) = @_
  #...

}
}


#/usr/bin/perl;
use strict;

use Bar;

new Bar->baz;