use strict;
use warnings;

package App::Perlbrew::Path::Root;

require App::Perlbrew::Path;
require 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;