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