Select Code to Download

        my $cnt = keys %{$self->{is_tested}};
        my $newenv = join $Config::Config{path_sep}, @dirs, @env;
...
                                 "for '%s'\n", $cnt, length($newenv), 
+$for)
                                );
        $ENV{PERL5LIB} = $newenv;

#-> sub CPAN::is_tested
sub is_tested {
    my($self,$what,$when) = @_;
...
    }
    $self->{is_tested}{$what} = $when;
}

sub _list_sorted_descending_is_tested {
    my($self) = @_;
    my $foul = 0;
...
        return @sorted;
    }
}

#-> sub CPAN::reset_tested
# forget all distributions tested -- resets what gets included in PERL
+5LIB
sub reset_tested {
    my ($self) = @_;
    $self->{is_tested} = {};
}