File Coverage

blib/lib/roles.pm

Criterion	Covered	Total	%
statement	24	28	85.7
branch	2	6	33.3
condition	2	3	66.6
subroutine	7	7	100.0
pod	1	1	100.0
total	36	45	80.0

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

use strict;
use warnings;

use MOP             ();
use Module::Runtime ();

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

sub import {
    shift;
    my $pkg   = caller(0);
    my $meta  = MOP::Util::get_meta( $pkg );
    my @roles = map Module::Runtime::use_package_optimistically( $_ ), @_;

    $meta->set_roles( @roles );

    MOP::Util::defer_until_UNITCHECK(sub {
        MOP::Util::compose_roles( MOP::Util::get_meta( $pkg ) )
    });
}

sub DOES {
    my ($self, $role) = @_;
    # get the class ...
    my $class = ref $self || $self;
    # if we inherit from this, we are good ...
    return 1 if $class->isa( $role );
    # next check the roles ...
    my $meta = MOP::Util::get_meta( $class );
    # test just the local (and composed) roles first ...
    return 1 if $meta->does_role( $role );
    # then check the inheritance hierarchy next ...
    return 1 if scalar grep { MOP::Util::get_meta( $_ )->does_role( $role ) } @{ $meta->mro };
    return 0;
}

1;

__END__