File Coverage

inc/Test/Requires.pm
Criterion Covered Total %
statement 22 49 44.9
branch 1 18 5.5
condition 2 14 14.2
subroutine 6 8 75.0
pod 0 1 0.0
total 31 90 34.4


line stmt bran cond sub pod time code
1             #line 1
2 1     1   1069 package Test::Requires;
  1         3  
  1         42  
3 1     1   5 use strict;
  1         2  
  1         43  
4             use warnings;
5 1     1   5 our $VERSION = '0.06';
  1         2  
  1         129  
6 1     1   30 use base 'Test::Builder::Module';
  1         4  
  1         72  
7             use 5.006000;
8              
9 1     1   6 sub import {
10 1         3 my $class = shift;
11             my $caller = caller(0);
12              
13             # export methods
14 1     1   4 {
  1         2  
  1         623  
  1         2  
15 1         2 no strict 'refs';
  1         10  
16             *{"$caller\::test_requires"} = \&test_requires;
17             }
18              
19 1 50 33     9 # 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         21 } else {
25 0           for my $mod (@_) {
26             test_requires($mod, undef, $caller);
27             }
28             }
29             }
30              
31 0     0 0   sub test_requires {
32 0 0         my ( $mod, $ver, $caller ) = @_;
33 0 0         return if $mod eq __PACKAGE__;
34 0           if (@_ != 3) {
35             $caller = caller(0);
36 0   0       }
37             $ver ||= '';
38 0            
39 0 0         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__