File Coverage

blib/lib/Test2/Require/Perl.pm
Criterion Covered Total %
statement 26 27 96.3
branch 3 4 75.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 37 40 92.5


line stmt bran cond sub pod time code
1             package Test2::Require::Perl;
2 1     1   7 use strict;
  1         2  
  1         35  
3 1     1   15 use warnings;
  1         2  
  1         26  
4              
5 1     1   5 use base 'Test2::Require';
  1         2  
  1         482  
6              
7             our $VERSION = '0.000156';
8              
9 1     1   7 use Test2::Util qw/pkg_to_file/;
  1         2  
  1         43  
10 1     1   43 use Scalar::Util qw/reftype/;
  1         13  
  1         143  
11              
12             sub skip {
13 2     2 0 92 my $class = shift;
14 2         5 my ($ver) = @_;
15              
16 1 100   1   7 return undef if eval "no warnings 'portable'; require $ver; 1";
  1     1   2  
  1         39  
  1         7  
  1         2  
  1         43  
  2         137  
17 1         5 my $error = $@;
18 1 50       14 return $1 if $error =~ m/^(Perl \S* required)/i;
19 0           die $error;
20             }
21              
22             1;
23              
24             __END__