File Coverage

lib/App/Perlbrew/Path/Root.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	5	0.0
total	23	28	82.1

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;