Branch Coverage

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


line true false branch
328 0 2 if ($params->{'background_activity'} or $params->{'message_callback'})
334 0 0 if not $self->background_function and $params->{'background_activity'}
336 0 0 if not $self->message_function and $params->{'message_callback'}
344 2 0 if ($self->safety_mode)
347 0 2 if $self->message_delay < 0.2
350 0 2 if $self->max_message_size > 1000
353 0 2 if $self->max_messages_per_hour > 166
400 0 2 unless (defined $status)
418 0 2 if (not defined $auth_result[0] or $auth_result[0] ne 'ok')
488 0 18 unless defined $timeout_seconds
528 0 0 if ($@)
538 0 0 if (defined $background_subroutine and $last_background + $time_between_background_routines < time)
568 0 0 if $sleep_time < 300
587 0 0 unless defined $self->jabber_client
635 92 86 if $type eq 'groupchat'
647 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)
656 178 0 if ($self->ignore_server_messages)
657 0 178 unless ($from_full =~ m[^([^\@]+)\@([^/]+)/(.+)$])
659 0 0 unless $from_full =~ m[^([^\@]+)\@([^/]+)/]
666 160 18 if ($self->ignore_self_messages)
668 160 0 if (defined $resource and $resource eq $self->resource)
678 12 6 if ($#aliases_to_respond_to >= 0 and $type eq 'groupchat')
682 12 12 unless $body =~ /^\s*$qm_address_type\s*(\S.*)$/ms
688 0 12 unless defined $request
693 18 0 if (defined $self->message_function) { }
724 0 18 unless (defined $forum)
730 12 6 if (defined $self->forums_and_responses->{$forum})
755 0 0 unless ($query)
765 0 0 if ($xmlns eq 'jabber:iq:version') { }
783 0 0 if ($iqReply)
805 0 0 if ($type eq 'subscribe') { }
0 0 elsif ($type eq 'unsubscribe') { }
827 0 0 unless $presence->GetPriority
832 0 0 unless defined $from
835 0 0 unless defined $status
854 4 4 unless defined $setting
910 82 0 unless $recipient =~ /\@/
960 2 166 if $#message_chunks > 0
964 2 176 if (defined $msg_return)
986 0 178 unless (defined $message_type)
991 0 178 unless (defined $recipient)
1000 2 176 if ($messages_this_hour > $self->max_messages_per_hour)
1001 2 0 unless defined $subject
1002 0 2 unless defined $message_chunk
1010 0 176 unless ($self->IsConnected)
1011 0 0 unless defined $subject
1012 0 0 unless defined $message_chunk
1037 2 174 if ($messages_this_hour == $self->max_messages_per_hour)
1063 2 0 if (length $subject > $self->max_message_size)
1128 0 0 unless (defined $Pres)
1134 0 0 if ($show)