gistfile1.pl

package My::Object;
use Moose ();
use Moose::Exporter;
use namespace::autoclean;
use My::Meta::Types;
use My::Meta::AttributeTraits;

Moose::Exporter->setup_import_methods(
    also => 'Moose',
    );

sub init_meta {
    shift;
    return Moose->init_meta(@_, metaclass => 'My::Object::MetaClass');
}

no Moose::Exporter;

package My::Object::MetaClass;
use Moose;
use Moose::Util;
extends 'Moose::Meta::Class';

before 'make_immutable' => sub {
    my $self = shift;
    my $name = $self->name;

    Moose::Util::ensure_all_roles($name, 'My::Role::Object::DBref');
};

1;