File Coverage

blib/lib/CPAN/Mini/Portable.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package CPAN::Mini::Portable;
2            
3 2     2   1934 use 5.008;
  2         7  
  2         75  
4 2     2   11 use strict;
  2         4  
  2         61  
5 2     2   9 use warnings;
  2         3  
  2         69  
6 2     2   449 use Portable ();
  2         4  
  2         38  
7 2     2   4135 use CPAN::Mini 0.575 ();
  2         4613538  
  2         174  
8            
9             our $VERSION = '1.22';
10             our @ISA = 'CPAN::Mini';
11            
12             sub new {
13             # Use the portable values as defaults,
14             # completely ignoring any passed params
15 1     1 1 745 my $minicpan = Portable->default->minicpan;
16            
17             # Hand off to the parent class
18 0           return $_[0]->SUPER::new( %$minicpan );
19             }
20            
21             1;