1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use strict;
use warnings;
package App::Perlbrew::Path::Root;
use App::Perlbrew::Path ();
use App::Perlbrew::Path::Installations ();
our @ISA = qw( App::Perlbrew::Path );
sub bin {
shift->child(bin => @_);
}
sub build {
shift->child(build => @_);
}
sub dists {
shift->child(dists => @_);
}
sub etc {
shift->child(etc => @_);
}
sub perls {
my ($self, @params) = @_;
my $return = $self->_child('App::Perlbrew::Path::Installations', 'perls');
$return = $return->child(@params) if @params;
return $return;
}
1;
|
