File Coverage

blib/lib/Test2/Formatter/T2Harness.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	4	6	66.6
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	28	35	80.0

package Test2::Formatter::T2Harness;
use strict;
use warnings;

our $VERSION = '0.000012';

sub new {
    my $class = shift;

    $| = 1;
    my $orig = select STDERR;
    $| = 1;
    select STDOUT;
    $| = 1;
    select $orig;

    if ($INC{'Test/Builder.pm'}) {
        print "# Selecting Test::Builder::Formatter.\n";
        eval { require Test::Builder::Formatter; 1 } and return Test::Builder::Formatter->new(@_);

        die "Test::Builder is loaded, but Test::Builder::Formatter is not present.\nAre you trying to combine old Test::Builder with Test2?\n";
    }

    if (-t STDOUT) {
        print "# Selecting Test2::Formatter::TAP.\n";
        require Test2::Formatter::TAP;
        return Test2::Formatter::TAP->new(@_);
    }

    # This formatter announces itself, no need to print it.
    require Test2::Formatter::EventStream;
    return Test2::Formatter::EventStream->new(@_);
}

1;

__END__