Select Code to Download

sub switch_to {
    my ( $self, $dist, $alias ) = @_;
...
        $self->launch_sub_shell($dist);
    }
}

        # The user does not source bashrc/csh in their shell initializ
+ation.
        $env{PATH}    = $env{PERLBREW_PATH}    . ":" . join ":", grep 
+{ !/$root\/bin/ } split ":", $ENV{PATH};
        $env{MANPATH} = $env{PERLBREW_MANPATH} . ":" . join ":", grep 
+{ !/$root\/man/ }
            ( defined($ENV{MANPATH}) ? split(":", $ENV{MANPATH}) : () 
+);

sub installed_perls {
    my $self    = shift;

...

    return sort { $a->{orig_version} <=> $b->{orig_version} or $a->{na
+me} cmp $b->{name}  } @result;
}

    for (<$root/perls/*>) {
    my @libs = map { substr($_, length($PERLBREW_HOME) + 6) } <$PERLBR
+EW_HOME/libs/*>;
...
    my $path_name  = joinpath($self->root, "perls", $name);
    my $path_alias = joinpath($self->root, "perls", $alias) if $alias;
    joinpath( $self->root, 'Config.pm' );