File Coverage

blib/lib/Test/Builder/Compat.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	2	4	50.0
condition			n/a
subroutine	6	9	66.6
pod			n/a
total	35	43	81.4

package Test::Builder::Compat;
use strict;
use warnings;

our $VERSION = '0.001002';

my $HAS_PROVIDER = eval { require Test::Builder::Provider; 1 };

sub import {
    my $class = shift;
    my $caller = caller;
    my @import = @_ ? @_ : qw/provides nest builder/;

    {
        no strict 'refs';
        *{"$caller\::HAS_PROVIDER"} = sub { $HAS_PROVIDER };
    }

    return Test::Builder::Provider->export_into($caller, @import)
        if $HAS_PROVIDER;

    require Test::Builder;
    no strict 'refs';
    *{"$caller\::builder"}  = sub { Test::Builder->new };
    *{"$caller\::provides"} = sub { 0 };
    *{"$caller\::nest"}     = sub(&) { $_[0]->() };
}

1;

__END__