Branch Coverage

blib/lib/Win32/Girder/IEvent/Server.pm
Criterion Covered Total %
branch 18 30 60.0


line true false branch
80 2 0 if (defined(my $pass = $opts{'PassWord'})) { }
114 0 1 if @opts
119 4 0 if (select my $rout = $$$obj{'_girder_rin'}, undef, undef, $timeout) { }
120 1 3 if (defined(my $event = $obj->handle_events)) { }
148 4 0 if (select my $rout = $$$obj{'_girder_rin'}, undef, undef, 0) { }
151 1 3 if (vec($rout, $obj->fileno, 1) == 1) { }
171 1 0 if ($obj->valid_client($cli)) { }
195 0 0 if ($cli == $gcli)
209 3 0 if (vec($rout, $cli->fileno, 1) == 1)
210 3 0 if (defined(my $event = $cli->getline)) { }
226 1 2 if (not defined $$$obj{'_girder_authenticated'}{$cli->fileno}) { }
1 1 elsif ($$$obj{'_girder_authenticated'}{$cli->fileno} eq 'AUTH') { }
229 1 0 if ($event eq 'quintessence') { }
241 0 1 if ($event eq 'close') { }
251 1 0 if ($event eq hash_password($cookie, $$$obj{'_girder_pass'})) { }