line |
true |
false |
branch |
69
|
2 |
2 |
grep(/^-base$/i, @_) ? : |
72
|
2 |
2 |
unless (defined $default_class) |
80
|
2 |
2 |
unless (grep /^-base$/i, @_) |
83
|
0 |
0 |
if ($_[$ii] eq '-package') { } |
89
|
0 |
2 |
if @args |
117
|
99 |
9 |
if $class->can('new') |
119
|
9 |
0 |
if $class->can('new') |
121
|
0 |
0 |
if $class->can('new') |
126
|
0 |
0 |
if ($$self{'block_list'}) |
134
|
0 |
20 |
ref $_[0] eq $default_class ? : |
143
|
0 |
2 |
if @_ > 1 |
145
|
0 |
2 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/ |
152
|
0 |
2 |
$section_name ? : |
155
|
2 |
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
|
2 |
0 |
if (ref $_[0] eq 'HASH') { } |
234
|
0 |
0 |
if eval {
do {
require Text::Diff;
1
}
} and $Text::Diff::VERSION >= 0.35 |
243
|
14 |
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
|
9 |
0 |
unless $block->is_filtered |
270
|
0 |
0 |
if @_ == 2 |
271
|
0 |
0 |
unless my $block = $self->first_block |
274
|
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
|
2 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms |
372
|
0 |
0 |
if $@ |
395
|
0 |
9 |
if (exists $$block{'ONLY'}) |
398
|
0 |
9 |
if exists $$block{'SKIP'} |
400
|
0 |
9 |
if (exists $$block{'LAST'}) |
409
|
0 |
37 |
if $$reserved_section_names{$id} or $id =~ /^_/ |
419
|
0 |
9 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+// |
424
|
9 |
0 |
unless ($description =~ /\S/) |
435
|
2 |
35 |
unless defined $value |
436
|
0 |
37 |
unless defined $filters |
437
|
37 |
0 |
if ($filters =~ /:(\s|\z)/) |
438
|
0 |
37 |
if $value =~ /\S/ |
441
|
0 |
37 |
unless defined $value |
457
|
0 |
2 |
if $self->_spec_string |
461
|
0 |
2 |
if (my $spec_file = $self->_spec_file) { } |
462
|
0 |
0 |
unless open FILE, $spec_file |
481
|
2 |
4 |
if $done |
484
|
0 |
53 |
if $status < 0 |
485
|
2 |
51 |
if (/^__(?:END|DATA)__\r?$/) |
500
|
0 |
0 |
unless @_ |
536
|
0 |
18 |
if defined &$accessor |
539
|
0 |
101 |
if (@_) |
542
|
4 |
97 |
unless $$self{$accessor} |
544
|
58 |
43 |
wantarray ? : |
559
|
14 |
158 |
unless defined &$accessor |
567
|
0 |
9 |
if $self->is_filtered |
574
|
0 |
99 |
$filter =~ s/=(.*)$// ? : |
578
|
0 |
99 |
if (defined &$function) { } |
581
|
0 |
0 |
if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/) |
589
|
0 |
99 |
unless $filter_object->can($filter) |
608
|
25 |
12 |
unless ref $map_filters |
616
|
0 |
99 |
unless length $filter |
617
|
0 |
99 |
if ($filter =~ s/^-//) { } |
|
0 |
99 |
elsif ($filter =~ s/^\+//) { } |