Branch Coverage

inc/Test/Base.pm
Criterion Covered Total %
branch 53 188 28.1


line true false branch
71 0 4 grep(/^-base$/i, @_) ? :
74 4 0 unless (defined $default_class)
82 4 0 unless (grep /^-base$/i, @_)
85 0 0 if ($_[$ii] eq '-package') { }
91 0 4 if @args
119 291 4 if $class->can('new')
121 0 4 if $class->can('new')
123 4 0 if $class->can('new')
128 0 0 if ($$self{'block_list'})
136 0 22 ref $_[0] eq $default_class ? :
145 0 4 if @_ > 1
147 0 4 if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
154 0 4 $section_name ? :
157 4 0 unless wantarray
159 0 0 if $self->_filters_delay
162 0 0 unless $block->is_filtered
172 0 0 if (@$list == 0)
177 0 0 if (defined $block and not $block->is_filtered)
191 0 0 defined $_[0] ? :
196 0 0 defined $_[0] ? :
226 2 0 if (ref $_[0] eq 'HASH') { }
241 0 0 if eval { do { require Text::Diff; 1 } } and $Text::Diff::VERSION >= 0.35
250 12 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) { }
260 0 0 unless defined $name
270 27 0 unless $block->is_filtered
277 0 0 if @_ == 2
278 0 0 unless my $block = $self->first_block
281 0 0 unless $$block{'_section_order'}[0]
283 0 0 unless @names == 2
289 0 0 unless $Have_Plan
293 0 0 unless $Have_Plan or $DIED or not $import_called
302 0 0 unless exists $$block{$x} and exists $$block{$y}
303 0 0 unless $block->is_filtered
304 0 0 if (ref $block->$x) { }
0 0 elsif (ref $block->$y eq 'Regexp') { }
305 0 0 $block->name ? :
309 0 0 ref $y ? :
310 0 0 $block->name ? :
313 0 0 $block->name ? :
324 0 0 unless exists $$block{$x} and exists $$block{$y}
325 0 0 unless $block->is_filtered
326 0 0 $block->name ? :
337 0 0 unless exists $$block{$x} and exists $$block{$y}
338 0 0 unless $block->is_filtered
339 0 0 $block->name ? :
350 0 0 unless exists $$block{$x} and defined $y
351 0 0 unless $block->is_filtered
352 0 0 ref $y ? :
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 ? :
376 0 0 unless eval "require $module; 1"
393 0 0 unless exists $$block{$x} and exists $$block{$y}
394 0 0 unless $block->is_filtered
395 0 0 $block->name ? :
403 4 0 unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
407 0 0 if $@
430 0 27 if (exists $$block{'ONLY'})
431 0 0 unless $self->_no_diag_on_only
435 0 27 if exists $$block{'SKIP'}
437 0 27 if (exists $$block{'LAST'})
446 0 89 if $$reserved_section_names{$id} or $id =~ /^_/
456 0 27 unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
461 27 0 unless ($description =~ /\S/)
472 2 87 unless defined $value
473 0 89 unless defined $filters
474 38 51 if ($filters =~ /:(\s|\z)/)
475 0 38 if $value =~ /\S/
478 0 38 unless defined $value
494 0 4 if $self->_spec_string
498 0 4 if (my $spec_file = $self->_spec_file) { }
499 0 0 unless open FILE, $spec_file
518 0 4 if $done
521 0 111 if $status < 0
522 4 107 if (/^__(?:END|DATA)__\r?$/)
537 0 0 unless @_
573 0 32 if defined &$accessor
576 0 308 if (@_)
579 12 296 unless $$self{$accessor}
581 214 94 wantarray ? :
596 24 441 unless defined &$accessor
604 0 27 if $self->is_filtered
611 0 268 $filter =~ s/=(.*)$// ? :
615 0 268 if (defined &$function) { }
616 0 0 @value == 1 && !defined($value[0]) ? :
621 0 0 if (not @value or @value == 1 and defined $value[0] and $value[0] =~ /\A(\d+|)\z/)
624 0 0 if ($value[0] and $_ eq $old)
632 0 268 unless $filter_object->can($filter)
651 13 76 unless ref $map_filters
659 0 268 unless length $filter
660 0 268 if ($filter =~ s/^-//) { }
0 268 elsif ($filter =~ s/^\+//) { }