File Coverage

lib/Test/File/ShareDir/Module.pm
Criterion Covered Total %
statement 23 25 92.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod n/a
total 31 36 86.1


line stmt bran cond sub pod time code
1 3     3   37287 use 5.006; # pragmas
  3         7  
2 3     3   13 use strict;
  3         5  
  3         60  
3 3     3   12 use warnings;
  3         3  
  3         207  
4              
5             package Test::File::ShareDir::Module;
6              
7             our $VERSION = '1.001002';
8              
9             # ABSTRACT: Simplified module oriented ShareDir tester
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 3     3   1514 use File::ShareDir 1.00 qw();
  3         16361  
  3         82  
14 3     3   1160 use Test::File::ShareDir::Utils qw( extract_dashes );
  3         11  
  3         451  
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27             sub import {
28 2     2   26 my ( undef, $arg ) = @_;
29              
30 2 50 33     26 if ( not ref $arg or 'HASH' ne ref $arg ) {
31 0         0 require Carp;
32 0         0 return Carp::croak q[Must pass a hashref];
33             }
34              
35 2         3 my %input_config = %{$arg};
  2         8  
36              
37 2         807 require Test::File::ShareDir::Object::Module;
38              
39 2         11 my $module_object = Test::File::ShareDir::Object::Module->new(extract_dashes('modules', \%input_config ));
40 2         172 $module_object->install_all_modules();
41 2         10 $module_object->register();
42 2         24 return 1;
43             }
44              
45             1;
46              
47             __END__