lib/CGI/FormBuilder.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 94 | 190 | 49.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
127 | 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 |
404 | 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') |
873 | 150 | 0 | 0 | exists $ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /lynx|mosaic/i |
1032 | 0 | 2 | 0 | $limit and $limit ne 1 |
1477 | 12 | 58 | 0 | not $ref and $self->{'template'} |
1532 | 0 | 4 | 59 | $tmpl and UNIVERSAL::can($tmpl, 'prepare') |
1556 | 0 | 0 | 0 | $args->{'mailer'} && -x $mailer |
1656 | 0 | 0 | 0 | $args->{'skip'} and $field =~ /$args->{'skip'}/ |
1678 | 3229 | 0 | 0 | $self->{'fieldsubs'} and $self->{'fieldrefs'}{$name} |
1696 | 2617 | 612 | 0 | !exists $self->{$name} || @_ and not $CGI::FormBuilder::Util::OURATTR{$name} |
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'} || '' |
903 | 132 | 0 | $self->jsprefix || '' |
914 | 4 | 116 | $self->jsfunc || '' |
915 | 0 | 120 | $self->jshead || '' |
985 | 2 | 0 | $self->jsprefix || '' |
1043 | 5 | 0 | $self->jsprefix || '' |
1161 | 17 | 2 | shift() || '' |
1170 | 35 | 13 | shift() || '' |
1189 | 4 | 66 | $self->{'tmplvar'} || {} |
1354 | 0 | 0 | shift() || 'fb' |
1495 | 11 | 1 | delete $opt->{'type'} || 'HTML' |
1507 | 12 | 58 | $mod ||= 'Builtin' |
1612 | 0 | 0 | $args->{'from'} ||= 'auto-reply' |
1639 | 0 | 0 | $args->{'delimiter'} || ': ' |
1641 | 0 | 0 | $args->{'separator'} || "\n" |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
132 | 23 | 0 | 0 | $ref || $src |
193 | 0 | 0 | 135 | $ENV{'FORMBUILDER_DEBUG'} || $self->{'debug'} |
210 | 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 | 0 | 46 | $p =~ /^_/ or $self->{'fieldrefs'}{$p} |
902 | 132 | 0 | 0 | $self->jsname || &puke(q[Must have 'jsname' if 'javascript' is on]) |
926 | 33 | 5 | 82 | $jsfunc or $jsmisc |
38 | 0 | 82 | $jsfunc or $jsmisc or $jshead | |
969 | 14 | 19 | 0 | $self->{'onsubmit'} ||= "return $jsname(this);" |
1111 | 0 | 4 | 124 | not $self->{'submit'} or $self->static |
4 | 2 | 122 | not $self->{'submit'} or $self->static or $self->disabled | |
1121 | 124 | 0 | 5 | not $self->{'reset'} or $self->static |
124 | 0 | 5 | not $self->{'reset'} or $self->static or $self->disabled | |
1147 | 2 | 1 | 56 | $self->static or $self->disabled |
1246 | 85 | 4 | 29 | $val{lc $_} || shift @val |
1386 | 0 | 0 | 0 | $self->{'text'} ||= sprintf($self->{'messages'}->form_confirm_text, $date) |
1609 | 0 | 0 | 0 | $args->{'to'} ||= $to |
1613 | 0 | 0 | 0 | $args->{'subject'} ||= sprintf($self->{'messages'}->mail_confirm_subject, $self->title) |
1614 | 0 | 0 | 0 | $args->{'text'} ||= sprintf($self->{'messages'}->mail_confirm_text, scalar localtime()) |
1640 | 0 | 0 | 0 | $args->{'joiner'} || $" |
1644 | 0 | 0 | 0 | $args->{'subject'} ||= sprintf($self->{'messages'}->mail_results_subject, $self->title) |
1696 | 612 | 0 | 2617 | !exists $self->{$name} || @_ |