File Coverage

blib/lib/exact/role.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition	2	3	66.6
subroutine	12	12	100.0
pod	5	5	100.0
total	47	48	97.9

package exact::role;
# ABSTRACT: Simple role interface extension for exact

use 5.014;
use exact;
use Role::Tiny ();

our $VERSION = '1.17'; # VERSION

sub import {
    my ( $self, $caller ) = @_;
    $caller //= caller();

    eval qq{
        package $caller {
            use Role::Tiny;
            use exact 'class', 'noautoclean';
            no feature 'class';
        };
    };
}

sub does_role {
    Role::Tiny::does_role(@_);
}

sub apply_roles_to_package {
    shift;
    Role::Tiny->apply_roles_to_package(@_);
}

sub apply_roles_to_object {
    shift;
    Role::Tiny->apply_roles_to_object(@_);
}

sub create_class_with_roles {
    shift;
    Role::Tiny->create_class_with_roles(@_);
}

sub is_role {
    shift;
    Role::Tiny->is_role(@_);
}

1;

__END__