File Coverage

blib/lib/MooseX/Meta/Method/Transactional/Application/ToComposite.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::Meta::Method::Transactional::Application::ToComposite;
use Moose::Role;

after apply => sub {
    my ($self, $role_source, $role_dest, $args) = @_;

    Moose::Util::MetaRole::apply_metaroles
        (
         for            => $role_dest,
         role_metaroles =>
         {
          application_to_role =>
          ['MooseX::Meta::Method::Transactional::Application::ToComposite'],
          application_to_class =>
          ['MooseX::Meta::Method::Transactional::Application::ToClass'],
          application_to_instance    =>
          ['MooseX::Meta::Method::Transactional::Application::ToInstance'],
         }
        );

};

1;