File Coverage

lib/App/Perlbrew/Path/Installations.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	21	25	84.0

use strict;
use warnings;

package App::Perlbrew::Path::Installations;

require App::Perlbrew::Path;
require App::Perlbrew::Path::Installation;

our @ISA = qw( App::Perlbrew::Path );

sub child {
    my ($self, @params) = @_;

    my $return = $self;
    $return = $return->_child('App::Perlbrew::Path::Installation' => shift @params) if @params;
    $return = $return->child(@params) if @params;

    $return;
}

sub children {
    shift->_children('App::Perlbrew::Path::Installation' => @_);
}

sub list {
    shift->children;
}

1;