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