Condition Coverage

lib/CGI/FormBuilder.pm
Criterion Covered Total %
condition 95 190 50.0


and 3 conditions

line !l l&&!r l&&r condition
122 0 0 0 $opt{'c'} && $opt{'c'}->action
225 3 102 4 $ref and $ref eq 'HASH'
313 1095 0 1 ref $_[0] eq 'ARRAY' and @_ == 1
403 334 0 12 $$self{'fieldtype'} and not exists $$args{'type'}
475 173 10 11 $_->fieldset and $_->fieldset eq $set
500 0 26 3 $$self{'cookies'} and defined(my $sid = $self->sessionid)
658 218 0 0 @_ == 1 and UNIVERSAL::isa($_[0], 'HASH')
685 0 0 0 @_ == 1 and UNIVERSAL::isa($_[0], 'HASH')
712 383 0 0 @_ == 1 and UNIVERSAL::isa($_[0], 'HASH')
734 90 0 0 @_ == 1 and UNIVERSAL::isa($_[0], 'HASH')
872 150 0 0 exists $ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /lynx|mosaic/i
1031 0 2 0 $limit and $limit ne 1
1476 12 58 0 not $ref and $$self{'template'}
1531 0 4 59 $tmpl and UNIVERSAL::can($tmpl, 'prepare')
1555 0 0 0 $$args{'mailer'} && -x $mailer
1655 0 0 0 $$args{'skip'} and $field =~ /$$args{'skip'}/
1677 3229 0 0 $$self{'fieldsubs'} and $$self{'fieldrefs'}{$name}
1695 2617 612 0 !exists($$self{$name}) || @_ and not $CGI::FormBuilder::Util::OURATTR{$name}

or 2 conditions

line l !l condition
136 22 1 delete $$src{'type'} || 'File'
212 2 0 $lang ||= 'default'
428 0 0 $$self{'fieldsets'} ||= []
518 32 0 $$self{'charset'} || $$self{'messages'}->charset || 'iso8859-1'
524 3 0 $$self{'lang'} || $$self{'messages'}->lang || 'en_US'
562 0 0 ref $$self{'font'} || ''
611 2 5 $$self{'body'}{'bgcolor'} ||= 'white'
675 8 160 $$attr{'valign'} ||= 'top'
702 0 0 $$self{'lalign'} || 'left'
760 0 11 $$self{'params'}->param($self->submitname) || '0E0'
797 0 153 $$self{'params'}->param($$self{'sessionidname'}) || undef
839 4 6 ref $$self{'keepextras'} || ''
902 132 0 $self->jsprefix || ''
913 4 116 $self->jsfunc || ''
914 0 120 $self->jshead || ''
984 2 0 $self->jsprefix || ''
1042 5 0 $self->jsprefix || ''
1160 17 2 shift() || ''
1169 35 13 shift() || ''
1188 4 66 $$self{'tmplvar'} || {}
1353 0 0 shift() || 'fb'
1494 11 1 delete $$opt{'type'} || 'HTML'
1506 12 58 $mod ||= 'Builtin'
1611 0 0 $$args{'from'} ||= 'auto-reply'
1638 0 0 $$args{'delimiter'} || ': '
1640 0 0 $$args{'separator'} || "\n"

or 3 conditions

line l !l&&r !l&&!r condition
132 23 0 0 $ref || $src
193 0 0 135 $ENV{'FORMBUILDER_DEBUG'} || $$self{'debug'}
209 0 0 0 $ENV{'HTTP_ACCEPT_LANGUAGE'} || $ENV{'LC_MESSAGES'} || $ENV{'LC_ALL'} || $ENV{'LANG'}
318 105 37 953 $$args{'name'} ||= $name
580 121 8 0 $attr{'action'} ||= $self->action
581 129 0 0 $attr{'method'} ||= $self->method
584 0 20 109 $attr{'class'} ||= $self->class($self->formname)
650 22 1 81 $$attr{'class'} ||= $self->class
702 0 0 0 $$attr{'align'} ||= $$self{'lalign'} || 'left'
751 0 13 0 shift() || $self->submittedname
848 4 14 32 $p =~ /^_/ or $$self{'fieldrefs'}{$p}
901 132 0 0 $self->jsname || puke(q[Must have 'jsname' if 'javascript' is on])
925 33 5 82 $jsfunc or $jsmisc
38 0 82 $jsfunc or $jsmisc or $jshead
968 14 19 0 $$self{'onsubmit'} ||= "return $jsname(this);"
1110 0 4 124 not $$self{'submit'} or $self->static
4 2 122 not $$self{'submit'} or $self->static or $self->disabled
1120 124 0 5 not $$self{'reset'} or $self->static
124 0 5 not $$self{'reset'} or $self->static or $self->disabled
1146 2 1 56 $self->static or $self->disabled
1245 85 4 29 $val{lc $_} || shift @val
1385 0 0 0 $$self{'text'} ||= sprintf($$self{'messages'}->form_confirm_text, $date)
1608 0 0 0 $$args{'to'} ||= $to
1612 0 0 0 $$args{'subject'} ||= sprintf($$self{'messages'}->mail_confirm_subject, $self->title)
1613 0 0 0 $$args{'text'} ||= sprintf($$self{'messages'}->mail_confirm_text, scalar localtime())
1639 0 0 0 $$args{'joiner'} || $"
1643 0 0 0 $$args{'subject'} ||= sprintf($$self{'messages'}->mail_results_subject, $self->title)
1695 612 0 2617 !exists($$self{$name}) || @_