File Coverage

blib/lib/MooseX/SingleArg/Meta/ToClass.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package MooseX::SingleArg::Meta::ToClass;

$MooseX::SingleArg::Meta::ToClass::VERSION = '0.09';

use Moose::Role;

around apply => sub {
    my $orig      = shift;
    my $self      = shift;
    my $from_role = shift;
    my $to_class  = shift;

    $to_class = Moose::Util::MetaRole::apply_metaroles(
        for             => $to_class,
        class_metaroles => {
            class => ['MooseX::SingleArg::Meta::Class'],
        },
    );

    Moose::Util::MetaRole::apply_base_class_roles(
        for   => $to_class,
        roles => ['MooseX::SingleArg::Meta::Object'],
    );

    $to_class->single_arg( $from_role->single_arg() ) if $from_role->has_single_arg();
    $to_class->force_single_arg( $from_role->force_single_arg() );

    return $self->$orig( $from_role, $to_class );
};

1;