Branch Coverage

blib/lib/Net/MRIM.pm
Criterion Covered Total %
branch 0 198 0.0


line true false branch
78 0 0 if $stype == $$self{'TYPE_SERVER_AUTH_REQUEST'}
331 0 0 unless defined $sock
332 0 0 if $params{'Debug'} and $params{'Debug'} == 1
341 0 0 if $params{'Debug'} and $params{'Debug'} == 1
343 0 0 if $$self{'_freq'} > 30
347 0 0 if $$self{'_debug'}
361 0 0 if $datarcv and $$self{'_debug'}
373 0 0 if $$self{'_debug'}
375 0 0 if ($curtime - $$self{'_last_time'} >= $$self{'_ping_period'} - 10)
388 0 0 if $$self{'_debug'}
399 0 0 if $$self{'_debug'}
400 0 0 $msgrcv == 4100 ? :
406 0 0 if $$self{'_debug'}
421 0 0 if $$self{'_debug'}
430 0 0 if ($msgrcv != 4122)
431 0 0 if $$self{'_debug'}
435 0 0 if ($datas[0] != 0 and $datas[0] != 5)
440 0 0 if $datas[0] == 5
446 0 0 if $dontremove == 1
452 0 0 if ($msgrcv != 4124)
472 0 0 if $status == 1
482 0 0 if $$self{'_debug'}
497 0 0 if $$self{'_debug'}
498 0 0 unless defined $$self{'_all_contacts'}{$email}
504 0 0 if ($msgrcv == 4124)
506 0 0 if ($datas[0] == 0)
507 0 0 if $$self{'_debug'}
522 0 0 if $$self{'_debug'}
545 0 0 if $email ne ''
546 0 0 if $sex ne '' and $sex ne '0'
547 0 0 if $country ne ''
548 0 0 if $online == 1
568 0 0 if $msg == 4113
570 0 0 if $data
573 0 0 if $data
574 0 0 if $$self{'_debug'}
599 0 0 if $$self{'_debug'}
600 0 0 unless $$self{'_sock'} and $$self{'_sock'}->connected
604 0 0 unless defined $s->exists($$self{'_sock'})
608 0 0 if ($s->can_read(int $$self{'_ping_period'} / $$self{'_freq'}))
612 0 0 if ($seq > 0 and $seq <= $$self{'_last_seq'} and $msg == $$self{'_last_type'}) { }
617 0 0 if $seq > 0
628 0 0 if $$self{'_debug'}
636 0 0 unless defined $dlen
638 0 0 if (not defined $msgrcv) { }
0 0 elsif ($msgrcv == 4125) { }
0 0 elsif ($msgrcv == 4105) { }
0 0 elsif ($msgrcv == 4115) { }
0 0 elsif ($msgrcv == 4147) { }
0 0 elsif ($msgrcv == 4151) { }
0 0 elsif ($msgrcv == 4111 or $msgrcv == 4129) { }
0 0 elsif ($msgrcv == 4122 or $msgrcv == 4124) { }
0 0 elsif ($msgrcv == 4136) { }
0 0 elsif ($msgrcv == 4117) { }
0 0 elsif ($msgrcv == 4160) { }
645 0 0 if (not $msgline =~ /^(Boundary:|Version:|X-MRIM-Flags:|Subject:|\-\-)/) { }
0 0 elsif ($msgline =~ /^\-\-[0-9A-Z]+/) { }
663 0 0 if ($datas[1] == 4 or $datas[1] == 1) { }
0 0 elsif ($datas[1] == 0 or $datas[1] == 128) { }
0 0 elsif ($datas[1] == 1024 or $datas[1] == 1028) { }
0 0 elsif ($datas[1] == 8 or $datas[1] == 12 or $datas[1] == 9) { }
0 0 elsif ($datas[1] == 64 or $datas[1] == 68 or $datas[1] == 65) { }
669 0 0 if $$self{'_debug'}
681 0 0 if $$self{'_debug'}
694 0 0 if $$self{'_debug'}
700 0 0 if $$self{'_debug'}
706 0 0 if $i < 10
713 0 0 if $$self{'_debug'}
714 0 0 if length $name < 1
715 0 0 if $flags == 1 or $flags == 1048576 or $flags == 1048577
716 0 0 if $status != 0 and $status != 3 and length $email > 1
719 0 0 if $clen > $dlen
730 0 0 if ($msgrcv == 4111) { }
741 0 0 if $i < 10
742 0 0 if ($datas[0] != 0 and $datas[0] != 3) { }
0 0 elsif ($datas[0] == 0 and grep /$datas[1]/, @ckeys) { }
755 0 0 if $$self{'_debug'}
757 0 0 if $datas[0] != 0
764 0 0 if $$self{'_debug'}
776 0 0 if ($label eq 'Username') { }
0 0 elsif ($label eq 'Domain') { }
0 0 elsif ($label eq 'Sex') { }
777 0 0 if $value eq ''
778 0 0 if $found == 1
780 0 0 if $found == 1
782 0 0 if ($value eq '1') { }
0 0 elsif ($value eq '2') { }
789 0 0 if $found == 1
791 0 0 if $found == 1
796 0 0 if $found == 1
798 0 0 if $$self{'_debug'}
806 0 0 if $$self{'_debug'}
808 0 0 if $datas[0] == 0
810 0 0 if $$self{'_debug'}
821 0 0 if ($datatype eq 'u') { }
0 0 elsif ($datatype eq 's') { }
822 0 0 if ($data =~ /^(\C{4})(\C*)/) { }
832 0 0 if ($itemlength) { }
835 0 0 if ($itemlength < 4096) { }