Lines Matching defs:netrc
2727 my($netrc) = CPAN::FTP::netrc->new;
2728 my($netrcfile) = $netrc->netrc;
2742 CPAN->debug("No ~/.netrc file found") if $CPAN::DEBUG;
2743 } elsif ($netrc->hasdefault || $netrc->contains($host)) {
2745 $netrc->hasdefault,
2746 $netrc->contains($host))) if $CPAN::DEBUG;
2747 if ($netrc->protected) {
2774 $CPAN::Frontend->mywarn("Your ~/.netrc neither contains $host
2778 # OK, they don't have a valid ~/.netrc. Use 'ftp -n'
2884 package CPAN::FTP::netrc;
2888 my $file = File::Spec->catfile($ENV{HOME},".netrc");
2923 'netrc' => $file,
2931 sub netrc { shift->{'netrc'} }