File Coverage

inc/Test/Requires.pm
Criterion Covered Total %
statement 36 52 69.2
branch 6 18 33.3
condition 3 14 21.4
subroutine 9 9 100.0
pod 0 1 0.0
total 54 94 57.4


line stmt bran cond sub pod time code
1             #line 1
2 1     1   1972 package Test::Requires;
  1         2  
  1         39  
3 1     1   6 use strict;
  1         2  
  1         43  
4             use warnings;
5 1     1   6 our $VERSION = '0.06';
  1         2  
  1         135  
6 1     1   32 use base 'Test::Builder::Module';
  1         4  
  1         61  
7             use 5.006000;
8              
9 1     1   9 sub import {
10 1         3 my $class = shift;
11             my $caller = caller(0);
12              
13             # export methods
14 1     1   6 {
  1         3  
  1         993  
  1         2  
15 1         2 no strict 'refs';
  1         7  
16             *{"$caller\::test_requires"} = \&test_requires;
17             }
18              
19 1 50 33     13 # 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 1         3 } else {
25 1         4 for my $mod (@_) {
26             test_requires($mod, undef, $caller);
27             }
28             }
29             }
30              
31 1     1 0 2 sub test_requires {
32 1 50       4 my ( $mod, $ver, $caller ) = @_;
33 1 50       8 return if $mod eq __PACKAGE__;
34 0         0 if (@_ != 3) {
35             $caller = caller(0);
36 1   50     7 }
37             $ver ||= '';
38 1     1   569  
  0         0  
  0         0  
  1         93  
39 1 50       7 eval qq{package $caller; use $mod $ver}; ## no critic.
40             if (my $e = $@) {
41 1     1   11 my $skip_all = sub {
42             my $builder = __PACKAGE__->builder;
43 1 50       12  
    0          
44 1         6 if (not defined $builder->has_plan) {
45             $builder->skip_all(@_);
46 0         0 } elsif ($builder->has_plan eq 'no_plan') {
47 0 0 0     0 $builder->skip(@_);
48 0         0 if ( $builder->can('parent') && $builder->parent ) {
49             die bless {} => 'Test::Builder::Exception';
50 0         0 }
51             exit 0;
52 0         0 } else {
53 0         0 for (1..$builder->has_plan) {
54             $builder->skip(@_);
55 0 0 0     0 }
56 0         0 if ( $builder->can('parent') && $builder->parent ) {
57             die bless {} => 'Test::Builder::Exception';
58 0         0 }
59             exit 0;
60 1         4 }
61 1 50       6 };
62 1         5 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__