File Coverage

blib/lib/Test2/Roo/Role.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	36	41	87.8

use 5.008001;
use strictures;

package Test2::Roo::Role;
# ABSTRACT: Composable role for Test2::Roo

our $VERSION = '1.005';

use Test2::Roo (); # no imports!
use Sub::Install;

sub import {
    my ( $class, @args ) = @_;
    my $caller = caller;
    Sub::Install::install_sub(
        { into => $caller, code => 'test', from => 'Test2::Roo' } );
    strictures->import; # do this for Moo, since we load Moo in eval
    eval qq{
        package $caller;
        use Moo::Role;
    };
    die $@ if $@;
    if (@args) {
        unshift @args, '!meta';
        eval qq{ package $caller; use Test2::V0 \@args };
    }
    else {
        eval qq{ package $caller; use Test2::V0 '!meta' };
    }
    die $@ if $@;
}

1;


# vim: ts=4 sts=4 sw=4 et:

__END__