File Coverage

blib/lib/Test2/Require/ProgramInPath.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	38	39	97.4

use warnings;
use 5.020;
use experimental qw( signatures );
use true;

package Test2::Require::ProgramInPath 0.01 {

    # ABSTRACT: Skip test unless a program exists in the PATH


    use File::Which ();
    use Carp qw( confess );
    use parent qw( Test2::Require );

    sub skip ( $, $program = undef ) {
        confess "no program specified" unless defined $program;
        return undef if File::Which::which $program;
        return "This test only runs if $program is in the PATH";
    }
}

__END__