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   55 use 5.008;
  4         9  
  4         134  
4              
5 4     4   17 use strict;
  4         12  
  4         105  
6 4     4   16 use warnings;
  4         35  
  4         91  
7              
8 4     4   15 use Cwd ();
  4         9  
  4         345  
9              
10             our $VERSION = '0.000_194';
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 4 our $Config = $CONFIG;
23 3         16 return;
24             }
25              
26             1;
27              
28             __END__