Branch Coverage

blib/lib/Net/Netrc.pm
Criterion Covered Total %
branch 44 62 70.9


line true false branch
29 0 2 if ($^O eq 'MacOS') { }
32 0 0 $home =~ /:$/ ? :
38 0 2 if defined $ENV{'HOMEDRIVE'}
39 0 2 if (-e $home . '/.netrc') { }
0 2 elsif (-e $home . '/_netrc') { }
46 0 2 unless $TESTING
57 2 0 unless ($^O eq "os2" or $^O eq "MSWin32" or $^O eq "MacOS" or $^O =~ /^cygwin/)
64 2 0 if (@stat)
65 1 1 if ($stat[2] & 63)
69 0 1 if ($stat[4] != $<)
76 1 0 if ($fh = "FileHandle"->new($file, "r"))
80 0 10 if /\A\n\Z/
82 0 10 if ($macdef)
97 2 18 if ($tok[0] eq "default")
106 3 15 unless @tok > 1
110 2 13 if ($tok eq 'machine') { }
10 3 elsif ($tok =~ /^(login|password|account)$/) { }
1 2 elsif ($tok eq 'macdef') { }
115 1 1 unless exists $netrc{$host}
119 1 9 unless $mach
127 1 0 unless $mach
130 0 0 unless exists $mach->{'macdef'}
144 0 5 unless exists $netrc{'default'}
147 2 3 if $mach eq "default"
150 4 1 if (exists $netrc{$mach})
151 1 3 if (defined $login)
154 1 1 if exists $m->{'login'} and $m->{'login'} eq $login
162 1 0 if defined $netrc{'default'}
173 3 1 exists $me->{'login'} ? :
182 3 1 exists $me->{'account'} ? :
191 3 1 exists $me->{'password'} ? :