File Coverage

blib/lib/exact/role.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	5	5	100.0
total	47	49	95.9

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

use 5.014;
use exact;
use Import::Into;
use feature    ();
use Role::Tiny ();

our $VERSION = '1.21'; # VERSION

my ($perl_version) = $^V =~ /^v5\.(\d+)/;

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

    Role::Tiny->import::into($caller);
    exact->import::into( $caller, 'class', 'noautoclean' );
    feature->unimport('class') if ( $perl_version > 36 );
}

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__