Branch Coverage

inc/Test/Base.pm
Criterion Covered Total %
branch 56 202 27.7


line true false branch
11 0 5 if ($HAS_PROVIDER) { }
82 0 5 grep(/^-base$/i, @_) ? :
85 5 0 unless (defined $default_class)
93 5 0 unless (grep /^-base$/i, @_)
96 0 0 if ($_[$ii] eq '-package') { }
102 0 5 if @args
130 29 2 if $class->can("new")
132 0 2 if $class->can("new")
134 2 0 if $class->can("new")
139 0 0 if ($self->{'block_list'})
147 0 12 ref $_[0] eq $default_class ? :
156 0 2 if @_ > 1
158 0 2 if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
165 0 2 $section_name ? :
168 2 0 unless wantarray
170 0 0 if $self->_filters_delay
173 0 0 unless $block->is_filtered
183 0 0 if (@$list == 0)
188 0 0 if (defined $block and not $block->is_filtered)
202 0 0 defined $_[0] ? :
207 0 0 defined $_[0] ? :
237 1 0 if (ref $_[0] eq 'HASH') { }
252 0 0 if eval {
261 7 0 unless $HAS_PROVIDER
262 7 0 if ($ENV{'TEST_SHOW_NO_DIFFS'} or not defined $actual or not defined $expected or $actual eq $expected or not $self->have_text_diff or not $expected =~ /\n./s) { }
272 0 0 unless defined $name
282 3 0 unless $block->is_filtered
289 0 0 unless defined $self->spec
290 0 0 if @_ == 2
291 0 0 unless my $block = $self->first_block
295 0 0 unless $block->{'_section_order'}[0]
296 0 0 unless @names == 2
302 0 0 unless $Have_Plan
306 0 0 unless $Have_Plan or $DIED or not $import_called
311 0 0 unless defined $self->spec
316 0 0 unless exists $block->{$x} and exists $block->{$y}
317 0 0 unless $block->is_filtered
318 0 0 if (ref $block->$x) { }
0 0 elsif (ref $block->$y eq 'Regexp') { }
319 0 0 $block->name ? :
323 0 0 ref $y ? :
324 0 0 $block->name ? :
327 0 0 $block->name ? :
338 0 0 unless exists $block->{$x} and exists $block->{$y}
339 0 0 unless $block->is_filtered
340 0 0 $block->name ? :
351 0 0 unless exists $block->{$x} and exists $block->{$y}
352 0 0 unless $block->is_filtered
353 0 0 $block->name ? :
364 0 0 unless exists $block->{$x} and defined $y
365 0 0 unless $block->is_filtered
366 0 0 ref $y ? :
367 0 0 $block->name ? :
378 0 0 unless exists $block->{$x} and defined $y
379 0 0 unless $block->is_filtered
380 0 0 ref $y ? :
381 0 0 $block->name ? :
390 0 0 unless eval "require $module; 1"
407 0 0 unless exists $block->{$x} and exists $block->{$y}
408 0 0 unless $block->is_filtered
409 0 0 $block->name ? :
417 0 2 unless defined $spec
418 2 0 unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
422 0 0 if $@
428 0 2 unless defined $spec
446 0 3 if (exists $block->{'ONLY'})
447 0 0 unless $self->_no_diag_on_only
451 0 3 if exists $block->{'SKIP'}
453 0 3 if (exists $block->{'LAST'})
463 0 11 if $reserved_section_names->{$id} or $id =~ /^_/
472 0 3 unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
477 3 0 unless ($description =~ /\S/)
488 2 9 unless defined $value
489 0 11 unless defined $filters
490 6 5 if ($filters =~ /:(\s|\z)/)
491 0 6 if $value =~ /\S/
494 0 6 unless defined $value
510 0 2 if $self->_spec_string
514 0 2 if (my $spec_file = $self->_spec_file) { }
515 0 0 unless open FILE, $spec_file
522 2 0 if ($handle)
534 0 5 if $done
537 0 265 if $status < 0
538 5 260 if (/^__(?:END|DATA)__\r?$/)
553 0 0 unless @_
589 0 23 if defined &$accessor
592 0 36 if (@_)
595 0 36 unless $self->{$accessor}
597 19 17 wantarray ? :
612 13 38 unless defined &$accessor
620 0 3 if $self->is_filtered
627 0 28 $filter =~ s/=(.*)$// ? :
631 0 28 if (defined &$function) { }
632 0 0 @value == 1 && !defined($value[0]) ? :
637 0 0 if (not @value or @value == 1 and defined $value[0] and $value[0] =~ /\A(\d+|)\z/)
640 0 0 if ($value[0] and $_ eq $old)
648 0 28 unless $filter_object->can($filter)
667 0 11 unless ref $map_filters
675 0 28 unless length $filter
676 0 28 if ($filter =~ s/^-//) { }
0 28 elsif ($filter =~ s/^\+//) { }