Testing concept for traits based on params

roletest.pl

#!/usr/bin/env perl

{
	package MyTest::Source::File;
	use Moose::Role;

	has filename => (
		isa => 'Str',
		is => 'ro',
		required => 1,
	);
}

{
	package MyTest::Source::DBIC;
	use Moose::Role;

	has schema => (
		isa => 'DBIx::Class::Schema',
		is => 'ro',
		required => 1,
	);
}

{
	package MyTest;
	use Moose;
	with 'MooseX::Traits';

	use Data::Dumper;
	
	has source => (
		is => 'ro',
		isa => 'Str',
		lazy_build => 1,
	);
	
	sub _build_source { 'File' }

	around new => sub {
		my $orig = shift;
		my $class = shift;
		return $class->$orig(@_) if ref $_[0] eq 'HASH' and $_[0]->{_source_trait_added};
		my $args = scalar @_ == 1 ? $_[0] : {@_};
		my $source = defined $args->{source} ? $args->{source} : $class->_build_source;
		my $role = $class.'::Source::'.$source;
		$args->{_source_trait_added} = 1; 
		$class->with_traits($role)->new($args);
	};
}

my $test = MyTest->new( filename => 'bla' );

my $test2 = MyTest->new( source => 'DBIC' );