==> doo.pl <==
#!/usr/bin/env perl

use strict;
use warnings;
use Foo;

print Foo->new->bar, "\n";

==> Foo.pm <==
package Foo;

use Moose;
with "Roo";

use Goo;

has goo => is => "rw", isa => "Roo", handles => "Roo"
    , default => sub { Goo->new; };

1;

==> Goo.pm <==
package Goo;

use Moose;
with "Roo";

1;

==> Roo.pm <==
package Roo;

use Moose::Role;

sub bar { 42 };

1;