File Coverage

blib/lib/Test/LocalFunctions.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	9	9	100.0
pod	3	3	100.0
total	45	47	95.7

package Test::LocalFunctions;

use strict;
use warnings;
use Test::LocalFunctions::Receptor;
use Module::Load;
use parent qw/Test::Builder::Module/;

our $VERSION = '0.23';
our @EXPORT  = qw/all_local_functions_ok local_functions_ok which_module_is_used/;

my $backend_module;
BEGIN {
    my $select_backend_module = sub {
        eval { require Compiler::Lexer };
        return 'Test::LocalFunctions::PPI' if ( $ENV{T_LF_PPI} || $@ || $Compiler::Lexer::VERSION < 0.13 );
        return 'Test::LocalFunctions::Fast';
    };
    $backend_module = $select_backend_module->();
    load $backend_module;
}

sub all_local_functions_ok {
    my ($args) = @_;
    return Test::LocalFunctions::Receptor::all_local_functions_ok( $backend_module, $args );
}

sub local_functions_ok {
    my ( $lib, $args ) = @_;
    return Test::LocalFunctions::Receptor::local_functions_ok( $backend_module, $lib, $args );
}

sub which_backend_is_used {
    return $backend_module;
}
1;
__END__