Branch Coverage

inc/Test/Base.pm
Criterion Covered Total %
branch 53 178 29.7


line true false branch
70 0 1 grep(/^-base$/i, @_) ? :
73 1 0 unless (defined $default_class)
81 1 0 unless (grep /^-base$/i, @_)
84 0 0 if ($_[$ii] eq '-package') { }
90 0 1 if @args
118 64 1 if $class->can('new')
120 0 1 if $class->can('new')
122 1 0 if $class->can('new')
127 0 0 if ($$self{'block_list'})
135 0 8 ref $_[0] eq $default_class ? :
144 0 1 if @_ > 1
146 0 1 if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
153 0 1 $section_name ? :
156 1 0 unless wantarray
158 0 0 if $self->_filters_delay
161 0 0 unless $block->is_filtered
171 0 0 if (@$list == 0)
176 0 0 if (defined $block and not $block->is_filtered)
190 0 0 defined $_[0] ? :
195 0 0 defined $_[0] ? :
225 1 0 if (ref $_[0] eq 'HASH') { }
240 0 0 if eval { do { require Text::Diff; 1 } } and $Text::Diff::VERSION >= 0.35
249 5 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) { }
259 0 0 unless defined $name
269 0 0 unless $block->is_filtered
276 1 0 if @_ == 2
277 0 0 unless my $block = $self->first_block
280 0 0 unless $$block{'_section_order'}[0]
282 0 0 unless @names == 2
288 0 1 unless $Have_Plan
292 0 0 unless $Have_Plan or $DIED or not $import_called
301 0 0 unless exists $$block{$x} and exists $$block{$y}
302 0 0 unless $block->is_filtered
303 0 0 if (ref $block->$x) { }
0 0 elsif (ref $block->$y eq 'Regexp') { }
304 0 0 $block->name ? :
308 0 0 ref $y ? :
309 0 0 $block->name ? :
312 0 0 $block->name ? :
323 0 5 unless exists $$block{$x} and exists $$block{$y}
324 5 0 unless $block->is_filtered
325 5 0 $block->name ? :
336 0 0 unless exists $$block{$x} and exists $$block{$y}
337 0 0 unless $block->is_filtered
338 0 0 $block->name ? :
349 0 0 unless exists $$block{$x} and defined $y
350 0 0 unless $block->is_filtered
351 0 0 ref $y ? :
352 0 0 $block->name ? :
363 0 0 unless exists $$block{$x} and defined $y
364 0 0 unless $block->is_filtered
365 0 0 ref $y ? :
366 0 0 $block->name ? :
374 1 0 unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
378 0 0 if $@
401 0 5 if (exists $$block{'ONLY'})
402 0 0 unless $self->_no_diag_on_only
406 0 5 if exists $$block{'SKIP'}
408 0 5 if (exists $$block{'LAST'})
417 0 10 if $$reserved_section_names{$id} or $id =~ /^_/
427 0 5 unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
432 5 0 unless ($description =~ /\S/)
443 0 10 unless defined $value
444 0 10 unless defined $filters
445 0 10 if ($filters =~ /:(\s|\z)/)
446 0 0 if $value =~ /\S/
449 0 0 unless defined $value
465 0 1 if $self->_spec_string
469 0 1 if (my $spec_file = $self->_spec_file) { }
470 0 0 unless open FILE, $spec_file
489 0 1 if $done
492 0 28 if $status < 0
493 1 27 if (/^__(?:END|DATA)__\r?$/)
508 0 0 unless @_
544 0 6 if defined &$accessor
547 0 40 if (@_)
550 0 40 unless $$self{$accessor}
552 10 30 wantarray ? :
567 4 96 unless defined &$accessor
575 0 5 if $self->is_filtered
582 0 70 $filter =~ s/=(.*)$// ? :
586 10 60 if (defined &$function) { }
590 0 10 if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/)
593 0 0 if ($value[0] and $_ eq $old)
601 0 60 unless $filter_object->can($filter)
620 0 10 unless ref $map_filters
628 0 70 unless length $filter
629 0 70 if ($filter =~ s/^-//) { }
0 70 elsif ($filter =~ s/^\+//) { }