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.. (.*)\|(.*)\|(.*)/ |