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
|
|
|
|
|
|
|
|