File Coverage

blib/lib/MouseX/Traits.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	6	8	75.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	2	2	100.0
total	35	39	89.7

package MouseX::Traits;
use Mouse::Role;

our $VERSION   = '0.1102';

has '_trait_namespace' => (
    init_arg => undef,
    isa      => 'Str',
    is       => 'bare',
);

my $transform_trait = sub {
    my ($class, $name) = @_;
    return $1 if $name =~ /^[+](.+)$/;

    my $namespace = $class->meta->find_attribute_by_name('_trait_namespace');
    my $base;
    if($namespace->has_default){
        $base = $namespace->default;
        if(ref $base eq 'CODE'){
            $base = $base->();
        }
    }

    return $name unless defined $base;
    return join '::', $base, $name;
};


my $anon_serial = 0;

sub with_traits {
    my ($class, @traits) = @_;

    $class->does(__PACKAGE__)
        or Carp::confess("We can't interact with traits for a class ($class) "
                       . "that does not do MouseX::Traits");

    my $meta = $class->meta;
    if (@traits) {
        # resolve traits
        @traits = map {
            my $orig = $_;
            if(!ref $orig){
                my $transformed = $transform_trait->($class, $orig);
                Mouse::Util::load_class($transformed);
            }
            else {
                $orig;
            }
        } @traits;

        $meta = $meta->create(
            'MouseX::Traits::__ANON__::' . ++$anon_serial,
            superclasses => [ $class ],
            roles        => \@traits,
            cache        => 1,
        );
    }

    return $meta->name;
}

sub new_with_traits {
    my $class = shift;

    my $args   = $class->BUILDARGS(@_);
    my $traits = delete $args->{traits} || [];

    my $new_class = $class->with_traits(ref $traits ? @$traits : $traits );
    return $new_class->meta->new_object($args);
}

no Mouse::Role;
1;

__END__