| line |
true |
false |
branch |
|
69
|
0 |
6 |
grep(/^-base$/i, @_) ? :
|
|
72
|
6 |
0 |
unless (defined $default_class)
|
|
80
|
6 |
0 |
unless (grep /^-base$/i, @_)
|
|
83
|
0 |
0 |
if ($_[$ii] eq '-package') { }
|
|
89
|
0 |
6 |
if @args
|
|
117
|
290 |
6 |
if $class->can('new')
|
|
119
|
0 |
6 |
if $class->can('new')
|
|
121
|
6 |
0 |
if $class->can('new')
|
|
126
|
0 |
0 |
if ($self->{'block_list'})
|
|
134
|
0 |
79 |
ref $_[0] eq $default_class ? :
|
|
143
|
0 |
5 |
if @_ > 1
|
|
145
|
0 |
5 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/
|
|
152
|
0 |
5 |
$section_name ? :
|
|
155
|
5 |
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] ? :
|
|
219
|
5 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
234
|
16 |
0 |
if eval {
do {
require Text::Diff;
1
}
} and $Text::Diff::VERSION >= 0.35
|
|
243
|
63 |
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) { }
|
|
253
|
0 |
0 |
unless defined $name
|
|
263
|
28 |
0 |
unless $block->is_filtered
|
|
270
|
0 |
0 |
if @_ == 2
|
|
271
|
0 |
0 |
unless my $block = $self->first_block
|
|
275
|
0 |
0 |
unless $block->{'_section_order'}[0]
|
|
276
|
0 |
0 |
unless @names == 2
|
|
282
|
0 |
0 |
unless $Have_Plan
|
|
286
|
0 |
0 |
unless $Have_Plan or $DIED or not $import_called
|
|
295
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
296
|
0 |
0 |
unless $block->is_filtered
|
|
297
|
0 |
0 |
if (ref $block->$x) { }
|
|
|
0 |
0 |
elsif (ref $block->$y eq 'Regexp') { }
|
|
298
|
0 |
0 |
$block->name ? :
|
|
302
|
0 |
0 |
ref $y ? :
|
|
303
|
0 |
0 |
$block->name ? :
|
|
306
|
0 |
0 |
$block->name ? :
|
|
317
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
318
|
0 |
0 |
unless $block->is_filtered
|
|
319
|
0 |
0 |
$block->name ? :
|
|
330
|
0 |
0 |
unless exists $block->{$x} and exists $block->{$y}
|
|
331
|
0 |
0 |
unless $block->is_filtered
|
|
332
|
0 |
0 |
$block->name ? :
|
|
343
|
0 |
0 |
unless exists $block->{$x} and defined $y
|
|
344
|
0 |
0 |
unless $block->is_filtered
|
|
345
|
0 |
0 |
ref $y ? :
|
|
346
|
0 |
0 |
$block->name ? :
|
|
357
|
0 |
0 |
unless exists $block->{$x} and defined $y
|
|
358
|
0 |
0 |
unless $block->is_filtered
|
|
359
|
0 |
0 |
ref $y ? :
|
|
360
|
0 |
0 |
$block->name ? :
|
|
368
|
6 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms
|
|
372
|
0 |
0 |
if $@
|
|
395
|
0 |
38 |
if (exists $block->{'ONLY'})
|
|
398
|
0 |
38 |
if exists $block->{'SKIP'}
|
|
400
|
0 |
38 |
if (exists $block->{'LAST'})
|
|
410
|
0 |
152 |
if $reserved_section_names->{$id} or $id =~ /^_/
|
|
419
|
0 |
38 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+//
|
|
424
|
38 |
0 |
unless ($description =~ /\S/)
|
|
435
|
2 |
150 |
unless defined $value
|
|
436
|
0 |
152 |
unless defined $filters
|
|
437
|
137 |
15 |
if ($filters =~ /:(\s|\z)/)
|
|
438
|
0 |
137 |
if $value =~ /\S/
|
|
441
|
0 |
137 |
unless defined $value
|
|
457
|
0 |
6 |
if $self->_spec_string
|
|
461
|
0 |
6 |
if (my $spec_file = $self->_spec_file) { }
|
|
462
|
0 |
0 |
unless open FILE, $spec_file
|
|
481
|
0 |
6 |
if $done
|
|
484
|
0 |
293 |
if $status < 0
|
|
485
|
6 |
287 |
if (/^__(?:END|DATA)__\r?$/)
|
|
500
|
0 |
0 |
unless @_
|
|
536
|
0 |
48 |
if defined &$accessor
|
|
539
|
0 |
320 |
if (@_)
|
|
542
|
8 |
312 |
unless $self->{$accessor}
|
|
544
|
170 |
150 |
wantarray ? :
|
|
559
|
36 |
525 |
unless defined &$accessor
|
|
567
|
0 |
28 |
if $self->is_filtered
|
|
574
|
0 |
258 |
$filter =~ s/=(.*)$// ? :
|
|
578
|
0 |
258 |
if (defined &$function) { }
|
|
581
|
0 |
0 |
if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/)
|
|
589
|
0 |
258 |
unless $filter_object->can($filter)
|
|
608
|
2 |
113 |
unless ref $map_filters
|
|
616
|
0 |
258 |
unless length $filter
|
|
617
|
0 |
258 |
if ($filter =~ s/^-//) { }
|
|
|
0 |
258 |
elsif ($filter =~ s/^\+//) { }
|