Branch Coverage

blib/lib/Net/Jabber/Bot.pm
Criterion Covered Total %
branch 47 116 40.5


line true false branch
334 0 2 if ($params->{'background_activity'} or $params->{'message_callback'})
340 0 0 if not $self->background_function and $params->{'background_activity'}
342 0 0 if not $self->message_function and $params->{'message_callback'}
347 0 2 if ($self->gtalk)
349 0 0 unless $params->{'server_host'}
356 2 0 if ($self->safety_mode)
359 0 2 if $self->message_delay < "0.2"
362 0 2 if $self->max_message_size > 1000
365 0 2 if $self->max_messages_per_hour > 166
389 0 2 unless defined $self->jabber_client
414 0 2 unless (defined $status)
432 0 2 if (not defined $auth_result[0] or $auth_result[0] ne "ok")
502 0 18 unless defined $timeout_seconds
542 0 0 if ($@)
552 0 0 if (defined $background_subroutine and $last_background + $time_between_background_routines < time)
582 0 0 if $sleep_time < 300
584 0 0 if (defined $background_subroutine)
603 0 0 unless defined $self->jabber_client
650 92 86 if $type eq "groupchat"
662 0 178 if ($self->connect_time > $time_now - $grace_period or defined $self->forum_join_time->{$from} and $self->forum_join_time->{$from} > $time_now - $grace_period)
671 178 0 if ($self->ignore_server_messages)
672 0 178 unless ($from_full =~ m[^([^\@]+)\@([^/]+)/(.+)$])
674 0 0 unless $from_full =~ m[^([^\@]+)\@([^/]+)/]
681 160 18 if ($self->ignore_self_messages)
683 160 0 if (defined $resource and $resource eq $self->resource)
693 12 6 if ($#aliases_to_respond_to >= 0 and $type eq "groupchat")
697 12 12 unless $body =~ /^\s*$qm_address_type\s*(\S.*)$/ms
703 0 12 unless defined $request
708 18 0 if (defined $self->message_function) { }
739 0 18 unless (defined $forum)
745 12 6 if (defined $self->forums_and_responses->{$forum})
770 0 0 unless ($query)
780 0 0 if ($xmlns eq 'jabber:iq:version') { }
798 0 0 if ($iqReply)
820 0 0 if ($type eq 'subscribe') { }
0 0 elsif ($type eq 'unsubscribe') { }
822 0 0 if ($self->auto_subscribe) { }
847 0 0 unless $presence->GetPriority
852 0 0 unless defined $from
855 0 0 unless defined $status
874 4 4 unless defined $setting
936 82 0 unless $recipient =~ /\@/
995 2 166 if $#message_chunks > 0
999 2 176 if (defined $msg_return)
1022 0 178 unless (defined $message_type)
1027 0 178 unless (defined $recipient)
1037 2 178 if $old_day != $yday
1042 2 176 if ($messages_this_hour > $self->max_messages_per_hour)
1043 2 0 unless defined $subject
1044 0 2 unless defined $message_chunk
1053 0 176 unless ($self->IsConnected)
1054 0 0 unless defined $subject
1055 0 0 unless defined $message_chunk
1075 0 176 if defined $from
1081 2 174 if ($messages_this_hour == $self->max_messages_per_hour)
1107 2 0 if (length $subject > $self->max_message_size)
1172 0 0 unless (defined $Pres)
1178 0 0 if ($show)