Branch Coverage

blib/lib/Auth/Krb5Afs.pm
Criterion Covered Total %
branch 0 14 0.0


line true false branch
49 0 0 unless (@pwent{'name', 'passwd', 'uid', 'gid', 'quota', 'comment', 'gcos', 'home', 'shell', 'expire'} = getpwnam $user)
59 0 0 if ($?)
66 0 0 if ($?)
75 0 0 if ($> == 0)
76 0 0 if (-f $ENV{'KRB5CCNAME'})
77 0 0 unless chown $pwent{'uid'}, $pwent{'gid'}, $ENV{'KRB5CCNAME'}
89 0 0 wantarray ? :