File Coverage

lib/App/Perlbrew/Path/Root.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 9 9 100.0
pod 0 5 0.0
total 31 36 86.1


line stmt bran cond sub pod time code
1 60     60   149474 use strict;
  60         127  
  60         1750  
2 60     60   294 use warnings;
  60         136  
  60         2232  
3              
4             package App::Perlbrew::Path::Root;
5              
6 60     60   691 use App::Perlbrew::Path ();
  60         117  
  60         879  
7 60     60   24308 use App::Perlbrew::Path::Installations ();
  60         143  
  60         9562  
8              
9             our @ISA = qw( App::Perlbrew::Path );
10              
11             sub bin {
12 61     61 0 266 shift->child(bin => @_);
13             }
14              
15             sub build {
16 35     35 0 384 shift->child(build => @_);
17             }
18              
19             sub dists {
20 39     39 0 296 shift->child(dists => @_);
21             }
22              
23             sub etc {
24 10     10 0 34 shift->child(etc => @_);
25             }
26              
27             sub perls {
28 377     377 0 1974 my ($self, @params) = @_;
29              
30 377         1395 my $return = $self->_child('App::Perlbrew::Path::Installations', 'perls');
31 377 100       1622 $return = $return->child(@params) if @params;
32              
33 377         1695 return $return;
34             }
35              
36             1;
37