File Coverage

blib/lib/Test/Detect.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition	6	6	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	27	27	100.0

package Test::Detect;

use strict;
use warnings;

$Test::Detect::VERSION = '0.1';

sub import {
    no strict 'refs';    ## no critic
    *{ caller() . '::detect_testing' } = \&detect_testing;
}

sub detect_testing {

    # anything to add/modify/remove? send patches!!
    return 1 if exists $ENV{'TAP_VERSION'} || exists $INC{'Test/More.pm'} || exists $INC{'Test/Builder.pm'};

    # would be nice if we could detect execution of prove *but* $^X is still perl when calling prove

    return;
}

1;

__END__