Branch Coverage

blib/lib/Net/Jabber/Bot.pm
Criterion Covered Total %
branch 42 102 41.1


line true false branch
317 0 2 if ($params->{'background_activity'} or $params->{'message_callback'})
330 0 0 if not $self->background_function and $params->{'background_activity'}
332 0 0 if not $self->message_function and $params->{'message_callback'}
340 2 0 if ($self->safety_mode)
342 0 2 if $self->message_delay < 0.2
345 0 2 if $self->max_message_size > 1000
348 0 2 if $self->max_messages_per_hour > 166
395 0 2 unless (defined $status)
413 0 2 if (not defined $auth_result[0] or $auth_result[0] ne 'ok')
482 0 18 unless defined $timeout_seconds
522 0 0 if ($@)
533 0 0 if (defined $background_subroutine and $last_background + $time_between_background_routines < time)
563 0 0 if $sleep_time < 300
583 0 0 unless defined $self->jabber_client
630 92 86 if $type eq 'groupchat'
642 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)
652 178 0 if ($self->ignore_server_messages)
653 0 178 unless ($from_full =~ m[^([^\@]+)\@([^/]+)/(.+)$])
655 0 0 unless $from_full =~ m[^([^\@]+)\@([^/]+)/]
662 160 18 if ($self->ignore_self_messages)
664 160 0 if (defined $resource and $resource eq $self->resource)
674 12 6 if ($#aliases_to_respond_to >= 0 and $type eq 'groupchat')
678 12 12 unless $body =~ /^\s*$qm_address_type\s*(\S.*)$/ms
684 0 12 unless defined $request
689 18 0 if (defined $self->message_function) { }
718 0 18 unless (defined $forum)
724 12 6 if (defined $self->forums_and_responses->{$forum})
749 0 0 unless ($query)
758 0 0 if ($xmlns eq 'jabber:iq:version') { }
773 0 0 if ($iqReply)
795 0 0 if ($type eq 'subscribe') { }
0 0 elsif ($type eq 'unsubscribe') { }
812 0 0 unless $presence->GetPriority
817 0 0 unless defined $from
820 0 0 unless defined $status
840 4 4 unless defined $setting
896 82 0 unless $recipient =~ /\@/
947 2 166 if $#message_chunks > 0
951 2 176 if (defined $msg_return)
973 0 178 unless (defined $message_type)
978 0 178 unless (defined $recipient)
987 2 176 if ($messages_this_hour > $self->max_messages_per_hour)
988 2 0 unless defined $subject
989 0 2 unless defined $message_chunk
1003 0 176 unless ($self->IsConnected)
1004 0 0 unless defined $subject
1005 0 0 unless defined $message_chunk
1035 2 174 if ($messages_this_hour == $self->max_messages_per_hour)
1059 2 0 if (length $subject > $self->max_message_size)
1124 0 0 unless (defined $Pres)
1130 0 0 if ($show)