| line |
true |
false |
branch |
|
11
|
0 |
5 |
if ($HAS_PROVIDER) { }
|
|
82
|
0 |
5 |
grep(/^-base$/i, @_) ? :
|
|
85
|
5 |
0 |
unless (defined $default_class)
|
|
93
|
5 |
0 |
unless (grep /^-base$/i, @_)
|
|
96
|
0 |
0 |
if ($_[$ii] eq '-package') { }
|
|
102
|
0 |
5 |
if @args
|
|
130
|
29 |
2 |
if $class->can("new")
|
|
132
|
0 |
2 |
if $class->can("new")
|
|
134
|
2 |
0 |
if $class->can("new")
|
|
139
|
0 |
0 |
if ($self->{'block_list'})
|
|
147
|
0 |
12 |
ref $_[0] eq $default_class ? :
|
|
156
|
0 |
2 |
if @_ > 1
|
|
158
|
0 |
2 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
|
|
165
|
0 |
2 |
$section_name ? :
|
|
168
|
2 |
0 |
unless wantarray
|
|
170
|
0 |
0 |
if $self->_filters_delay
|
|
173
|
0 |
0 |
unless $block->is_filtered
|
|
183
|
0 |
0 |
if (@$list == 0)
|
|
188
|
0 |
0 |
if (defined $block and not $block->is_filtered)
|
|
202
|
0 |
0 |
defined $_[0] ? :
|
|
207
|
0 |
0 |
defined $_[0] ? :
|
|
237
|
1 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
252
|
0 |
0 |
if eval {
|
|
261
|
7 |
0 |
unless $HAS_PROVIDER
|
|
262
|
7 |
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) { }
|
|
272
|
0 |
0 |
unless defined $name
|
|
282
|
3 |
0 |
unless $block->is_filtered
|
|
289
|
0 |
0 |
unless defined $self->spec
|
|
290
|
0 |
0 |
if @_ == 2
|
|
291
|
0 |
0 |
unless my $block = $self->first_block
|
|
295
|
0 |
0 |
unless $block->{'_section_order'}[0]
|
|
296
|
0 |
0 |
unless @names == 2
|
|
302
|
0 |
0 |
unless $Have_Plan
|
|
306
|
0 |
0 |
unless $Have_Plan or $DIED or not $import_called
|
|
311
|
0 |
0 |
unless defined $self->spec
|
|
316
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
317
|
0 |
0 |
unless $block->is_filtered
|
|
318
|
0 |
0 |
if (ref $block->$x) { }
|
|
|
0 |
0 |
elsif (ref $block->$y eq 'Regexp') { }
|
|
319
|
0 |
0 |
$block->name ? :
|
|
323
|
0 |
0 |
ref $y ? :
|
|
324
|
0 |
0 |
$block->name ? :
|
|
327
|
0 |
0 |
$block->name ? :
|
|
338
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
339
|
0 |
0 |
unless $block->is_filtered
|
|
340
|
0 |
0 |
$block->name ? :
|
|
351
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
352
|
0 |
0 |
unless $block->is_filtered
|
|
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 ? :
|
|
378
|
0 |
0 |
unless exists $block->{$x} and defined $y
|
|
379
|
0 |
0 |
unless $block->is_filtered
|
|
380
|
0 |
0 |
ref $y ? :
|
|
381
|
0 |
0 |
$block->name ? :
|
|
390
|
0 |
0 |
unless eval "require $module; 1"
|
|
407
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
408
|
0 |
0 |
unless $block->is_filtered
|
|
409
|
0 |
0 |
$block->name ? :
|
|
417
|
0 |
2 |
unless defined $spec
|
|
418
|
2 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
|
|
422
|
0 |
0 |
if $@
|
|
428
|
0 |
2 |
unless defined $spec
|
|
446
|
0 |
3 |
if (exists $block->{'ONLY'})
|
|
447
|
0 |
0 |
unless $self->_no_diag_on_only
|
|
451
|
0 |
3 |
if exists $block->{'SKIP'}
|
|
453
|
0 |
3 |
if (exists $block->{'LAST'})
|
|
463
|
0 |
11 |
if $reserved_section_names->{$id} or $id =~ /^_/
|
|
472
|
0 |
3 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
|
|
477
|
3 |
0 |
unless ($description =~ /\S/)
|
|
488
|
2 |
9 |
unless defined $value
|
|
489
|
0 |
11 |
unless defined $filters
|
|
490
|
6 |
5 |
if ($filters =~ /:(\s|\z)/)
|
|
491
|
0 |
6 |
if $value =~ /\S/
|
|
494
|
0 |
6 |
unless defined $value
|
|
510
|
0 |
2 |
if $self->_spec_string
|
|
514
|
0 |
2 |
if (my $spec_file = $self->_spec_file) { }
|
|
515
|
0 |
0 |
unless open FILE, $spec_file
|
|
522
|
2 |
0 |
if ($handle)
|
|
534
|
0 |
5 |
if $done
|
|
537
|
0 |
265 |
if $status < 0
|
|
538
|
5 |
260 |
if (/^__(?:END|DATA)__\r?$/)
|
|
553
|
0 |
0 |
unless @_
|
|
589
|
0 |
23 |
if defined &$accessor
|
|
592
|
0 |
36 |
if (@_)
|
|
595
|
0 |
36 |
unless $self->{$accessor}
|
|
597
|
19 |
17 |
wantarray ? :
|
|
612
|
13 |
38 |
unless defined &$accessor
|
|
620
|
0 |
3 |
if $self->is_filtered
|
|
627
|
0 |
28 |
$filter =~ s/=(.*)$// ? :
|
|
631
|
0 |
28 |
if (defined &$function) { }
|
|
632
|
0 |
0 |
@value == 1 && !defined($value[0]) ? :
|
|
637
|
0 |
0 |
if (not @value or @value == 1 and defined $value[0] and $value[0] =~ /\A(\d+|)\z/)
|
|
640
|
0 |
0 |
if ($value[0] and $_ eq $old)
|
|
648
|
0 |
28 |
unless $filter_object->can($filter)
|
|
667
|
0 |
11 |
unless ref $map_filters
|
|
675
|
0 |
28 |
unless length $filter
|
|
676
|
0 |
28 |
if ($filter =~ s/^-//) { }
|
|
|
0 |
28 |
elsif ($filter =~ s/^\+//) { }
|