File Coverage

blib/lib/roles.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	2	4	50.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	49	52	94.2

package roles;
# ABSTRACT: A simple pragma for composing roles.

use strict;
use warnings;

use MOP         ();
use Devel::Hook ();

our $VERSION   = '0.01';
our $AUTHORITY = 'cpan:STEVAN';

sub import {
    shift;
    my $role = caller;
    my @roles = @_;

    {
        no strict   'refs';
        no warnings 'once';
        push @{ $role.'::DOES' } => @roles;
    }

    Devel::Hook->push_UNITCHECK_hook(sub {
        my $meta;
        {
            no strict   'refs';
            no warnings 'once';
            if ( @{ $role.'::ISA' } ) {
                $meta = MOP::Class->new( $role )
            }
            else {
                $meta = MOP::Role->new( $role )
            }
        }

        MOP::Util::APPLY_ROLES(
            $meta,
            [ $meta->roles ],
            to => ($meta->isa('MOP::Class') ? 'class' : 'role')
        );
    });
}

1;

__END__