line |
true |
false |
branch |
71
|
0 |
2 |
grep(/^-base$/i, @_) ? : |
74
|
2 |
0 |
unless (defined $default_class) |
82
|
2 |
0 |
unless (grep /^-base$/i, @_) |
85
|
0 |
0 |
if ($_[$ii] eq '-package') { } |
91
|
0 |
2 |
if @args |
119
|
35 |
2 |
if $class->can('new') |
121
|
0 |
2 |
if $class->can('new') |
123
|
2 |
0 |
if $class->can('new') |
128
|
0 |
0 |
if ($$self{'block_list'}) |
136
|
0 |
7 |
ref $_[0] eq $default_class ? : |
145
|
0 |
2 |
if @_ > 1 |
147
|
0 |
2 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/ |
154
|
0 |
2 |
$section_name ? : |
157
|
2 |
0 |
unless wantarray |
159
|
0 |
0 |
if $self->_filters_delay |
162
|
0 |
0 |
unless $block->is_filtered |
172
|
0 |
0 |
if (@$list == 0) |
177
|
0 |
0 |
if (defined $block and not $block->is_filtered) |
191
|
0 |
0 |
defined $_[0] ? : |
196
|
0 |
0 |
defined $_[0] ? : |
226
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
241
|
0 |
0 |
if eval {
do {
require Text::Diff;
1
}
} and $Text::Diff::VERSION >= 0.35 |
250
|
2 |
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) { } |
260
|
0 |
0 |
unless defined $name |
270
|
5 |
0 |
unless $block->is_filtered |
277
|
0 |
0 |
if @_ == 2 |
278
|
0 |
0 |
unless my $block = $self->first_block |
281
|
0 |
0 |
unless $$block{'_section_order'}[0] |
283
|
0 |
0 |
unless @names == 2 |
289
|
0 |
0 |
unless $Have_Plan |
293
|
0 |
0 |
unless $Have_Plan or $DIED or not $import_called |
302
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
303
|
0 |
0 |
unless $block->is_filtered |
304
|
0 |
0 |
if (ref $block->$x) { } |
|
0 |
0 |
elsif (ref $block->$y eq 'Regexp') { } |
305
|
0 |
0 |
$block->name ? : |
309
|
0 |
0 |
ref $y ? : |
310
|
0 |
0 |
$block->name ? : |
313
|
0 |
0 |
$block->name ? : |
324
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
325
|
0 |
0 |
unless $block->is_filtered |
326
|
0 |
0 |
$block->name ? : |
337
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
338
|
0 |
0 |
unless $block->is_filtered |
339
|
0 |
0 |
$block->name ? : |
350
|
0 |
0 |
unless exists $$block{$x} and defined $y |
351
|
0 |
0 |
unless $block->is_filtered |
352
|
0 |
0 |
ref $y ? : |
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 ? : |
376
|
0 |
0 |
unless eval "require $module; 1" |
393
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
394
|
0 |
0 |
unless $block->is_filtered |
395
|
0 |
0 |
$block->name ? : |
403
|
2 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms |
407
|
0 |
0 |
if $@ |
430
|
0 |
5 |
if (exists $$block{'ONLY'}) |
431
|
0 |
0 |
unless $self->_no_diag_on_only |
435
|
0 |
5 |
if exists $$block{'SKIP'} |
437
|
0 |
5 |
if (exists $$block{'LAST'}) |
446
|
0 |
13 |
if $$reserved_section_names{$id} or $id =~ /^_/ |
456
|
0 |
5 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+// |
461
|
5 |
0 |
unless ($description =~ /\S/) |
472
|
1 |
12 |
unless defined $value |
473
|
0 |
13 |
unless defined $filters |
474
|
7 |
6 |
if ($filters =~ /:(\s|\z)/) |
475
|
0 |
7 |
if $value =~ /\S/ |
478
|
0 |
7 |
unless defined $value |
494
|
0 |
2 |
if $self->_spec_string |
498
|
0 |
2 |
if (my $spec_file = $self->_spec_file) { } |
499
|
0 |
0 |
unless open FILE, $spec_file |
518
|
0 |
2 |
if $done |
521
|
0 |
29 |
if $status < 0 |
522
|
2 |
27 |
if (/^__(?:END|DATA)__\r?$/) |
537
|
0 |
0 |
unless @_ |
573
|
0 |
13 |
if defined &$accessor |
576
|
0 |
41 |
if (@_) |
579
|
0 |
41 |
unless $$self{$accessor} |
581
|
27 |
14 |
wantarray ? : |
596
|
9 |
56 |
unless defined &$accessor |
604
|
0 |
5 |
if $self->is_filtered |
611
|
0 |
32 |
$filter =~ s/=(.*)$// ? : |
615
|
0 |
32 |
if (defined &$function) { } |
616
|
0 |
0 |
@value == 1 && !defined($value[0]) ? : |
621
|
0 |
0 |
if (not @value or @value == 1 and defined $value[0] and $value[0] =~ /\A(\d+|)\z/) |
624
|
0 |
0 |
if ($value[0] and $_ eq $old) |
632
|
0 |
32 |
unless $filter_object->can($filter) |
651
|
0 |
13 |
unless ref $map_filters |
659
|
0 |
32 |
unless length $filter |
660
|
0 |
32 |
if ($filter =~ s/^-//) { } |
|
0 |
32 |
elsif ($filter =~ s/^\+//) { } |