Branch Coverage

blib/lib/Net/Citadel.pm
Criterion Covered Total %
branch 1 56 1.7


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