File Coverage

blib/lib/Tangerine/hook/tests.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition	10	12	83.3
subroutine	12	12	100.0
pod	1	1	100.0
total	59	61	96.7

package Tangerine::hook::tests;
$Tangerine::hook::tests::VERSION = '0.23';
use 5.010;
use strict;
use warnings;
use parent 'Tangerine::Hook';
use Tangerine::Hook;
use Tangerine::HookData;
use Tangerine::Utils qw(any);

sub run {
    my ($self, $s) = @_;
    if ((any { $s->[0] eq $_ } qw(use no)) && scalar(@$s) > 1 &&
        (any { $s->[1] eq $_ }
            qw(Test::Inter Test::Modern Test::More Test::Strict))) {
        require Tangerine::hook::testloading;
        return Tangerine::HookData->new( hooks => [
                Tangerine::hook::testloading->new(type => 'runtime') ] );
    }
    if ((any { $s->[0] eq $_ } qw(use no)) && scalar(@$s) > 1 &&
        (any { $s->[1] eq $_ } qw(Test::Needs Test::Requires))) {
        require Tangerine::hook::testrequires;
        return Tangerine::HookData->new( hooks => [
                Tangerine::hook::testrequires->new(type => 'runtime') ] );
    }
    return;
}

1;

__END__