File Coverage

mock/CPAN.pm
Criterion Covered Total %
statement 14 16 87.5
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 19 24 79.1


line stmt bran cond sub pod time code
1             package CPAN;
2              
3 4     4   56 use 5.008;
  4         11  
  4         140  
4              
5 4     4   19 use strict;
  4         7  
  4         99  
6 4     4   19 use warnings;
  4         49  
  4         92  
7              
8 4     4   19 use Cwd ();
  4         8  
  4         456  
9              
10             our $VERSION = '0.000_01';
11              
12             our $CONFIG ||= {
13             urllist => [ 'file://' . Cwd::abs_path( 'mock/repos' ) ],
14             };
15              
16             sub CPAN::HandleConfig::missing_config_data {
17 0     0 0 0 require Carp;
18 0         0 Carp::confess( 'This method must be monkey-patched out' );
19             }
20              
21             sub CPAN::HandleConfig::load {
22 3     3 0 9 our $Config = $CONFIG;
23 3         15 return;
24             }
25              
26             1;
27              
28             __END__