| line |
true |
false |
branch |
|
70
|
0 |
3 |
grep(/^-base$/i, @_) ? :
|
|
73
|
3 |
0 |
unless (defined $default_class)
|
|
81
|
3 |
0 |
unless (grep /^-base$/i, @_)
|
|
84
|
0 |
0 |
if ($_[$ii] eq '-package') { }
|
|
90
|
0 |
3 |
if @args
|
|
118
|
30 |
3 |
if $class->can('new')
|
|
120
|
0 |
3 |
if $class->can('new')
|
|
122
|
3 |
0 |
if $class->can('new')
|
|
127
|
0 |
0 |
if ($$self{'block_list'})
|
|
135
|
0 |
8 |
ref $_[0] eq $default_class ? :
|
|
144
|
0 |
3 |
if @_ > 1
|
|
146
|
0 |
3 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
|
|
153
|
0 |
3 |
$section_name ? :
|
|
156
|
3 |
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
|
2 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
240
|
0 |
0 |
if eval {
do {
require Text::Diff;
1
}
} and $Text::Diff::VERSION >= 0.35
|
|
249
|
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) { }
|
|
259
|
0 |
0 |
unless defined $name
|
|
269
|
3 |
0 |
unless $block->is_filtered
|
|
276
|
0 |
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 |
0 |
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 |
0 |
unless exists $$block{$x} and exists $$block{$y}
|
|
324
|
0 |
0 |
unless $block->is_filtered
|
|
325
|
0 |
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
|
3 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
|
|
378
|
0 |
0 |
if $@
|
|
401
|
0 |
11 |
if (exists $$block{'ONLY'})
|
|
402
|
0 |
0 |
unless $self->_no_diag_on_only
|
|
406
|
0 |
11 |
if exists $$block{'SKIP'}
|
|
408
|
0 |
11 |
if (exists $$block{'LAST'})
|
|
417
|
0 |
42 |
if $$reserved_section_names{$id} or $id =~ /^_/
|
|
427
|
0 |
11 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
|
|
432
|
11 |
0 |
unless ($description =~ /\S/)
|
|
443
|
3 |
39 |
unless defined $value
|
|
444
|
0 |
42 |
unless defined $filters
|
|
445
|
42 |
0 |
if ($filters =~ /:(\s|\z)/)
|
|
446
|
0 |
42 |
if $value =~ /\S/
|
|
449
|
0 |
42 |
unless defined $value
|
|
465
|
0 |
3 |
if $self->_spec_string
|
|
469
|
0 |
3 |
if (my $spec_file = $self->_spec_file) { }
|
|
470
|
0 |
0 |
unless open FILE, $spec_file
|
|
489
|
0 |
3 |
if $done
|
|
492
|
0 |
76 |
if $status < 0
|
|
493
|
3 |
73 |
if (/^__(?:END|DATA)__\r?$/)
|
|
508
|
0 |
0 |
unless @_
|
|
544
|
0 |
22 |
if defined &$accessor
|
|
547
|
0 |
21 |
if (@_)
|
|
550
|
0 |
21 |
unless $$self{$accessor}
|
|
552
|
15 |
6 |
wantarray ? :
|
|
567
|
16 |
92 |
unless defined &$accessor
|
|
575
|
0 |
3 |
if $self->is_filtered
|
|
582
|
0 |
22 |
$filter =~ s/=(.*)$// ? :
|
|
586
|
0 |
22 |
if (defined &$function) { }
|
|
590
|
0 |
0 |
if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/)
|
|
593
|
0 |
0 |
if ($value[0] and $_ eq $old)
|
|
601
|
0 |
22 |
unless $filter_object->can($filter)
|
|
620
|
0 |
10 |
unless ref $map_filters
|
|
628
|
0 |
22 |
unless length $filter
|
|
629
|
0 |
22 |
if ($filter =~ s/^-//) { }
|
|
|
0 |
22 |
elsif ($filter =~ s/^\+//) { }
|