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   730 package Test::Requires;
  1         4  
  1         38  
3 1     1   6 use strict;
  1         2  
  1         116  
4             use warnings;
5 1     1   5 our $VERSION = '0.03';
  1         2  
  1         97  
6 1     1   23 use base 'Test::Builder::Module';
  1         3  
  1         60  
7             use 5.008000;
8              
9 1     1   6 sub import {
10 1         2 my $class = shift;
11             my $caller = caller(0);
12              
13             # export methods
14 1     1   14 {
  1         2  
  1         532  
  1         2  
15 1         2 no strict 'refs';
  1         6  
16             *{"$caller\::test_requires"} = \&test_requires;
17             }
18              
19 1 50 33     16 # 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         2 } else {
25 1         3 for my $mod (@_) {
26             test_requires($mod, undef, $caller);
27             }
28             }
29             }
30              
31 1     1 0 3 sub test_requires {
32 1 50       3 my ( $mod, $ver, $caller ) = @_;
33 1 50       4 return if $mod eq __PACKAGE__;
34 0         0 if (@_ != 3) {
35             $caller = caller(0);
36 1   50     6 }
37             $ver ||= '';
38 1     1   560  
  0         0  
  0         0  
  1         82  
39 1 50       5 eval qq{package $caller; use $mod $ver}; ## no critic.
40             if (my $e = $@) {
41 1     1   9 my $skip_all = sub {
42             my $builder = __PACKAGE__->builder;
43 1 50       17  
    0          
44 1         13 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         5 }
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__