Branch Coverage

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


line true false branch
69 17 17 grep(/^-base$/i, @_) ? :
72 17 17 unless (defined $default_class)
80 17 17 unless (grep /^-base$/i, @_)
83 0 0 if ($_[$ii] eq '-package') { }
89 0 17 if @args
117 0 609 if $class->can('new')
119 595 14 if $class->can('new')
121 14 0 if $class->can('new')
126 0 3 if ($$self{'block_list'})
134 0 50 ref $_[0] eq $default_class ? :
143 0 14 if @_ > 1
145 0 14 if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
152 0 14 $section_name ? :
155 14 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] ? :
194 0 0 defined $_[0] ? :
224 17 0 if (ref $_[0] eq 'HASH') { }
239 0 0 if eval { do { require Text::Diff; 1 } } and $Text::Diff::VERSION >= 0.35
248 0 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) { }
258 0 0 unless defined $name
268 87 6 unless $block->is_filtered
275 0 0 if @_ == 2
276 0 0 unless my $block = $self->first_block
279 0 0 unless $$block{'_section_order'}[0]
281 0 0 unless @names == 2
287 0 0 unless $Have_Plan
291 0 2 unless $Have_Plan or $DIED or not $import_called
300 0 0 unless exists $$block{$x} and exists $$block{$y}
301 0 0 unless $block->is_filtered
302 0 0 if (ref $block->$x) { }
0 0 elsif (ref $block->$y eq 'Regexp') { }
303 0 0 $block->name ? :
307 0 0 ref $y ? :
308 0 0 $block->name ? :
311 0 0 $block->name ? :
322 0 0 unless exists $$block{$x} and exists $$block{$y}
323 0 0 unless $block->is_filtered
324 0 0 $block->name ? :
335 0 0 unless exists $$block{$x} and exists $$block{$y}
336 0 0 unless $block->is_filtered
337 0 0 $block->name ? :
348 0 0 unless exists $$block{$x} and defined $y
349 0 0 unless $block->is_filtered
350 0 0 ref $y ? :
351 0 0 $block->name ? :
362 0 0 unless exists $$block{$x} and defined $y
363 0 0 unless $block->is_filtered
364 0 0 ref $y ? :
365 0 0 $block->name ? :
374 0 0 unless eval "require $module; 1"
391 0 0 unless exists $$block{$x} and exists $$block{$y}
392 0 0 unless $block->is_filtered
393 0 0 $block->name ? :
401 14 0 unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
405 0 0 if $@
428 0 87 if (exists $$block{'ONLY'})
429 0 0 unless $self->_no_diag_on_only
433 0 87 if exists $$block{'SKIP'}
435 0 87 if (exists $$block{'LAST'})
444 0 174 if $$reserved_section_names{$id} or $id =~ /^_/
454 0 87 unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
459 87 0 unless ($description =~ /\S/)
470 0 174 unless defined $value
471 0 174 unless defined $filters
472 0 174 if ($filters =~ /:(\s|\z)/)
473 0 0 if $value =~ /\S/
476 0 0 unless defined $value
492 0 14 if $self->_spec_string
496 0 14 if (my $spec_file = $self->_spec_file) { }
497 0 0 unless open FILE, $spec_file
516 18 34 if $done
519 0 1097 if $status < 0
520 16 1081 if (/^__(?:END|DATA)__\r?$/)
535 0 0 unless @_
571 0 90 if defined &$accessor
574 0 627 if (@_)
577 0 627 unless $$self{$accessor}
579 174 453 wantarray ? :
594 56 988 unless defined &$accessor
602 0 87 if $self->is_filtered
609 0 522 $filter =~ s/=(.*)$// ? :
613 0 522 if (defined &$function) { }
614 0 0 @value == 1 && !defined($value[0]) ? :
619 0 0 if (not @value or @value == 1 and defined $value[0] and $value[0] =~ /\A(\d+|)\z/)
622 0 0 if ($value[0] and $_ eq $old)
630 0 522 unless $filter_object->can($filter)
649 0 174 unless ref $map_filters
657 0 522 unless length $filter
658 0 522 if ($filter =~ s/^-//) { }
0 522 elsif ($filter =~ s/^\+//) { }