Branch Coverage

inc/Test/Base.pm
Criterion Covered Total %
branch 55 172 31.9


line true false branch
69 2 2 grep(/^-base$/i, @_) ? :
72 2 2 unless (defined $default_class)
80 2 2 unless (grep /^-base$/i, @_)
83 0 0 if ($_[$ii] eq '-package') { }
89 0 2 if @args
117 99 9 if $class->can('new')
119 9 0 if $class->can('new')
121 0 0 if $class->can('new')
126 0 0 if ($$self{'block_list'})
134 0 20 ref $_[0] eq $default_class ? :
143 0 2 if @_ > 1
145 0 2 if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
152 0 2 $section_name ? :
155 2 0 unless wantarray
157 0 0 if $self->_filters_delay
160 0 0 unless $block->is_filtered
170 0 0 if (@$list == 0)
175 0 0 if (defined $block and not $block->is_filtered)
189 0 0 defined $_[0] ? :
219 2 0 if (ref $_[0] eq 'HASH') { }
234 0 0 if eval { do { require Text::Diff; 1 } } and $Text::Diff::VERSION >= 0.35
243 14 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) { }
253 0 0 unless defined $name
263 9 0 unless $block->is_filtered
270 0 0 if @_ == 2
271 0 0 unless my $block = $self->first_block
274 0 0 unless $$block{'_section_order'}[0]
276 0 0 unless @names == 2
282 0 0 unless $Have_Plan
286 0 0 unless $Have_Plan or $DIED or not $import_called
295 0 0 unless exists $$block{$x} and exists $$block{$y}
296 0 0 unless $block->is_filtered
297 0 0 if (ref $block->$x) { }
0 0 elsif (ref $block->$y eq 'Regexp') { }
298 0 0 $block->name ? :
302 0 0 ref $y ? :
303 0 0 $block->name ? :
306 0 0 $block->name ? :
317 0 0 unless exists $$block{$x} and exists $$block{$y}
318 0 0 unless $block->is_filtered
319 0 0 $block->name ? :
330 0 0 unless exists $$block{$x} and exists $$block{$y}
331 0 0 unless $block->is_filtered
332 0 0 $block->name ? :
343 0 0 unless exists $$block{$x} and defined $y
344 0 0 unless $block->is_filtered
345 0 0 ref $y ? :
346 0 0 $block->name ? :
357 0 0 unless exists $$block{$x} and defined $y
358 0 0 unless $block->is_filtered
359 0 0 ref $y ? :
360 0 0 $block->name ? :
368 2 0 unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
372 0 0 if $@
395 0 9 if (exists $$block{'ONLY'})
398 0 9 if exists $$block{'SKIP'}
400 0 9 if (exists $$block{'LAST'})
409 0 37 if $$reserved_section_names{$id} or $id =~ /^_/
419 0 9 unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
424 9 0 unless ($description =~ /\S/)
435 2 35 unless defined $value
436 0 37 unless defined $filters
437 37 0 if ($filters =~ /:(\s|\z)/)
438 0 37 if $value =~ /\S/
441 0 37 unless defined $value
457 0 2 if $self->_spec_string
461 0 2 if (my $spec_file = $self->_spec_file) { }
462 0 0 unless open FILE, $spec_file
481 2 4 if $done
484 0 53 if $status < 0
485 2 51 if (/^__(?:END|DATA)__\r?$/)
500 0 0 unless @_
536 0 18 if defined &$accessor
539 0 101 if (@_)
542 4 97 unless $$self{$accessor}
544 58 43 wantarray ? :
559 14 158 unless defined &$accessor
567 0 9 if $self->is_filtered
574 0 99 $filter =~ s/=(.*)$// ? :
578 0 99 if (defined &$function) { }
581 0 0 if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/)
589 0 99 unless $filter_object->can($filter)
608 25 12 unless ref $map_filters
616 0 99 unless length $filter
617 0 99 if ($filter =~ s/^-//) { }
0 99 elsif ($filter =~ s/^\+//) { }