Branch Coverage

blib/lib/NetServer/Portal/Login.pm
Criterion Covered Total %
branch 0 24 0.0


line true false branch
15 0 0 if (not $$o{'user'}) { }
52 0 0 if (not exists $$t{$id}) { }
64 0 0 if (not $$o{'user'}) { }
65 0 0 if ($in)
66 0 0 if ($in =~ /^[a-zA-Z\d]+$/) { }
74 0 0 unless ($in)
78 0 0 if ($in =~ /^dim \s* (\d+) (\s*,\s*|\s+) (\d+)$/x) { }
0 0 elsif ($in eq '!exit') { }
0 0 elsif ($in eq '!back') { }
80 0 0 if $r < 12
81 0 0 if $c < 70
91 0 0 if ($in eq '!' . $$p{'cmd'})