Branch Coverage

blib/lib/Test/HTML/Form.pm
Criterion Covered Total %
branch 50 80 62.5


line true false branch
239 3 3 if (ref $tag) { }
249 0 6 unless ($ok)
250 0 0 ref $tag ? :
275 0 4 unless ($ok)
298 0 1 unless ($ok)
321 0 1 unless ($ok)
343 1 0 if (ref $text_to_match eq 'Regexp')
350 0 1 unless ref $elem eq 'HTML::Element'
353 1 0 if ($pattern) { }
365 0 1 unless ($ok)
401 2 0 if ($matches)
407 0 2 unless ($ok)
445 0 1 unless (UNIVERSAL::can($select_elem, 'descendants'))
450 0 10 unless ref $option and lc $option->tag eq 'option'
451 1 9 if (_compare($option, $field_value))
458 0 1 unless ($ok)
497 1 0 if (_compare($checkbox, $field_value))
504 0 1 unless ($ok)
528 4 1 if ($parsed_file_forms{$$args{'filename'}}{$internal_form_name}) { }
536 0 1 if ($form_name) { }
537 0 0 if $form->attr('name') eq $form_name
543 1 0 if (ref $form)
546 0 63 unless ref $node
547 11 52 if (lc($node->tag) =~ /^(input|select|textarea|button)$/i)
548 3 8 if (lc $node->attr('type') =~ /(radio|checkbox)/) { }
576 3 73 if $thisnode->as_trimmed_text =~ /$pattern/i
591 0 13 unless ($elem and ref $elem eq 'HTML::Element')
596 0 13 ref $field_value eq 'Regexp' ? :
598 11 2 unless (defined $value)
602 0 13 if ($have_regexp) { }
603 0 0 $elem && $value =~ /$field_value/ ? :
605 4 9 $elem && $value eq $field_value ? :
614 12 1 if (ref $attr_ref eq 'HASH') { }
616 3 9 if (ref $$attr_ref{'_content'} eq 'Regexp')
622 3 9 if ($pattern)
624 0 2 unless ref $_[0] eq 'HTML::Element'
644 1 76 if $node->as_trimmed_text =~ /$text/
651 1 17 unless ($parsed_files{$filename})
654 0 1 if (ref $filename and $filename->can('content')) { }
657 0 1 unless -f $filename