pluggable.pl

#!/usr/bin/perl                                                             
package Constructor;
use Moose;
with 'MooseX::Traits';
use namespace::autoclean;
has '+_trait_namespace' => ( default => __PACKAGE__);
sub load {
    my ($class, @plugin) = @_;
    my $obj_with_plugin = $class->new_with_traits(traits => [@plugin]);
    return $obj_with_plugin;
}
__PACKAGE__->meta->make_immutable;
1;

package Constructor::Plugin;
use Moose::Role;
requires 'frobnicate';
1;

package Constructor::Plugin::Component;
use Moose::Role;
sub frobnicate { "zark!\n" }
1;

package main;
use Test::More;
use Test::Exception;
my $thing;
lives_ok {$thing = Constructor->load('Plugin', 'Plugin::Component')} "instantiated ok";
ok $thing->frobnicate, "frobnicates ok";
done_testing;