use v5.14;
use Moose ();

sub with_traits_and_fancy_schmancy_name {
	my ($name, $base, @roles) = @_;
	return $base unless @roles;
	return 'Moose::Meta::Class'->create(
		$name,
		superclasses => [$base],
		roles        => \@roles,
	)->name;
} 

package Person {
	use Moose;
	has name => (is => 'ro', isa => 'Str');
	sub add_numbers {
		my $self = shift;
		my $sum;
		$sum += $_ for @_;
		return $sum;
	}
};

package Inumerate {
	use Moose::Role;
	around add_numbers => sub {
		confess "I'm no good at maths";
	};
};

my $bob = with_traits_and_fancy_schmancy_name(
	'Idiot',
	'Person' => qw( Inumerate ),
)->new(name => 'Robert');

$bob->add_numbers(1, 2, 3);