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         32  
3 1     1   4 use warnings;
  1         2  
  1         28  
4              
5 1     1   5 use base 'Test2::Require';
  1         2  
  1         396  
6              
7             our $VERSION = '0.000153';
8              
9 1     1   8 use Test2::Util qw/pkg_to_file/;
  1         2  
  1         43  
10 1     1   6 use Scalar::Util qw/reftype/;
  1         2  
  1         128  
11              
12             sub skip {
13 2     2 0 139 my $class = shift;
14 2         5 my ($ver) = @_;
15              
16 1 100   1   8 return undef if eval "no warnings 'portable'; require $ver; 1";
  1     1   2  
  1         39  
  1         8  
  1         2  
  1         30  
  2         141  
17 1         7 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__