| line |
true |
false |
branch |
|
316
|
1 |
0 |
unless $self->{'socket'} = 'IO::Socket::INET'->new('PeerAddr', $self->{'host'}, 'PeerPort', $self->{'port'}, 'Proto', 'tcp', 'Type', 1) |
|
345
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
348
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
368
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
395
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
427
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
454
|
0 |
0 |
if ($floors[$i]{'name'} eq $name) |
|
457
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
482
|
0 |
0 |
unless my($floor) = grep({$_->{'name'} eq $name;} @floors) |
|
486
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
540
|
0 |
0 |
unless my($floor) = grep({$_->{'name'} eq $fname;} @floors) |
|
557
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
581
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
585
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
614
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
645
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
651
|
0 |
0 |
if $changes{'password'} |
|
652
|
0 |
0 |
if $changes{'access_level'} |
|
655
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
678
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
687
|
0 |
0 |
if readline($s) =~ /(\d).. (.*)/ |
|
715
|
0 |
0 |
unless readline($s) =~ /2.. $msg/ |
|
746
|
0 |
0 |
unless (readline($s) =~ /1../) |
|
749
|
0 |
0 |
if (not $line =~ /^000/) { } |
|
799
|
0 |
0 |
unless (readline($s) =~ /1../) |
|
803
|
0 |
0 |
if (not $line =~ /^000/) { } |
|
810
|
0 |
0 |
if (lc $type eq 'users') { } |
|
839
|
0 |
0 |
unless readline($s) =~ /2.. (.*)\|(.*)\|(.*)/ |