1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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;
|
