File Coverage

inc/Test/Requires.pm
Criterion Covered Total %
statement 32 52 61.5
branch 4 18 22.2
condition 3 14 21.4
subroutine 8 9 88.8
pod 0 1 0.0
total 47 94 50.0


line stmt bran cond sub pod time code
1             #line 1
2 2     2   106643 package Test::Requires;
  2         5  
  2         106  
3 2     2   13 use strict;
  2         5  
  2         142  
4             use warnings;
5 2     2   249 our $VERSION = '0.06';
  2         6  
  2         615  
6 2     2   69 use base 'Test::Builder::Module';
  2         8  
  2         184  
7             use 5.006000;
8              
9 2     2   86 sub import {
10 2         7 my $class = shift;
11             my $caller = caller(0);
12              
13             # export methods
14 2     2   10 {
  2         5  
  2         1220  
  2         5  
15 2         4 no strict 'refs';
  2         15  
16             *{"$caller\::test_requires"} = \&test_requires;
17             }
18              
19 2 50 33     27 # test arguments
      33        
20 0         0 if (@_ == 1 && ref $_[0] && ref $_[0] eq 'HASH') {
  0         0  
21 0         0 while (my ($mod, $ver) = each %{$_[0]}) {
22             test_requires($mod, $ver, $caller);
23             }
24 2         5 } else {
25 2         6 for my $mod (@_) {
26             test_requires($mod, undef, $caller);
27             }
28             }
29             }
30              
31 2     2 0 5 sub test_requires {
32 2 50       7 my ( $mod, $ver, $caller ) = @_;
33 2 50       7 return if $mod eq __PACKAGE__;
34 0         0 if (@_ != 3) {
35             $caller = caller(0);
36 2   50     11 }
37             $ver ||= '';
38 2     2   14  
  2         4  
  2         275  
  2         138  
39 2 50       59 eval qq{package $caller; use $mod $ver}; ## no critic.
40             if (my $e = $@) {
41 0     0     my $skip_all = sub {
42             my $builder = __PACKAGE__->builder;
43 0 0          
    0          
44 0           if (not defined $builder->has_plan) {
45             $builder->skip_all(@_);
46 0           } elsif ($builder->has_plan eq 'no_plan') {
47 0 0 0       $builder->skip(@_);
48 0           if ( $builder->can('parent') && $builder->parent ) {
49             die bless {} => 'Test::Builder::Exception';
50 0           }
51             exit 0;
52 0           } else {
53 0           for (1..$builder->has_plan) {
54             $builder->skip(@_);
55 0 0 0       }
56 0           if ( $builder->can('parent') && $builder->parent ) {
57             die bless {} => 'Test::Builder::Exception';
58 0           }
59             exit 0;
60 0           }
61 0 0         };
62 0           if ( $e =~ /^Can't locate/ ) {
63             $skip_all->("Test requires module '$mod' but it's not found");
64             }
65 0           else {
66             $skip_all->("$e");
67             }
68             }
69             }
70              
71             1;
72             __END__