Branch Coverage

blib/lib/Net/Gnats.pm
Criterion Covered Total %
branch 32 94 34.0


line true false branch
245 44 93 if defined $session
287 13 0 if defined $value
304 13 24914 if defined $value
323 1 14 unless defined $conn
479 1 4 unless defined $field
483 1 3 unless $c->is_ok
496 0 0 unless defined $field
512 0 0 unless defined $field
526 0 0 unless defined $field
540 0 0 unless defined $field
542 0 0 unless $c->is_ok
625 0 0 unless defined $pr_number and defined $user
639 0 0 unless defined $pr_number
653 1 1 unless defined $pr_number
717 0 0 unless defined $pr
720 0 0 unless defined $field
723 0 0 unless defined $input
732 0 0 if ($need_reason and !defined($reason) || $reason eq '')
739 0 0 if ($r->code == 212)
742 0 0 if ($need_reason)
749 0 0 if $r->code == 640
753 0 0 if ($self->_is_code_ok($r->code))
770 0 0 if (defined $restart_time)
771 0 0 if ($ctime - $restart_time < 5)
800 0 0 unless defined $pr
802 0 0 unless defined $field
804 0 0 unless defined $input
809 0 0 if ($self->_is_code_ok($r->code)) { }
811 0 0 if ($self->_is_code_ok($r->code)) { }
819 0 0 if ($r->code == 640 and $self->restart($r->code))
860 0 2 unless defined $pr
862 0 2 unless $self->session->issue('Net::Gnats::Command'->editaddr('address', $self->session->username))->is_ok
867 0 2 unless $self->session->issue('Net::Gnats::Command'->lock_pr('pr_number', $pr->get_field('Number')->value, 'user', $self->session->username))->is_ok
876 0 2 unless $self->session->issue('Net::Gnats::Command'->unlk('pr_number', $pr->get_field('Number')->value))->is_ok
896 0 2 unless defined $self->session->schema
914 0 7 unless defined $pr_number
916 0 7 unless $self->session->issue('Net::Gnats::Command'->rset)->is_ok
918 0 7 unless $self->session->issue('Net::Gnats::Command'->qfmt('format', 'full'))->is_ok
935 5 4 if scalar @exprs == 0
965 0 5 unless $self->reset_server
966 0 5 unless $self->qfmt('full')
967 0 5 unless $self->expr(@exprs)
970 2 3 unless $c->is_ok
989 0 11 if (not defined $password or $password eq '')
993 0 11 unless $self->session->authenticate
995 0 11 if $self->session->database ne $db
996 11 0 if $self->session->database eq $db