| line |
true |
false |
branch |
|
68
|
1 |
1 |
grep(/^-base$/i, @_) ? : |
|
71
|
1 |
1 |
unless (defined $default_class) |
|
79
|
1 |
1 |
if (@_ > 1 and not grep(/^-base$/i, @_)) |
|
109
|
0 |
0 |
if $class->can('new') |
|
111
|
0 |
0 |
if $class->can('new') |
|
113
|
0 |
0 |
if $class->can('new') |
|
118
|
0 |
0 |
if ($$self{'block_list'}) |
|
126
|
0 |
0 |
ref $_[0] eq $default_class ? : |
|
135
|
0 |
0 |
if @_ > 1 |
|
137
|
0 |
0 |
if @_ and not $_[0] =~ /^[a-zA-Z]\w*$/ |
|
144
|
0 |
0 |
$section_name ? : |
|
147
|
0 |
0 |
unless wantarray |
|
149
|
0 |
0 |
if $self->_filters_delay |
|
152
|
0 |
0 |
unless $block->is_filtered |
|
162
|
0 |
0 |
if (@$list == 0) |
|
167
|
0 |
0 |
if (defined $block and not $block->is_filtered) |
|
181
|
0 |
0 |
defined $_[0] ? : |
|
211
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
226
|
0 |
0 |
if eval {
do {
require Text::Diff;
1
}
} and $Text::Diff::VERSION >= 0.35 |
|
235
|
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) { } |
|
245
|
0 |
0 |
unless defined $name |
|
255
|
0 |
0 |
unless $block->is_filtered |
|
262
|
0 |
0 |
if @_ == 2 |
|
263
|
0 |
0 |
unless my $block = $self->first_block |
|
266
|
0 |
0 |
unless $$block{'_section_order'}[0] |
|
268
|
0 |
0 |
unless @names == 2 |
|
274
|
0 |
0 |
unless $Have_Plan |
|
278
|
0 |
0 |
unless $Have_Plan or $DIED or not $import_called |
|
287
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
|
288
|
0 |
0 |
unless $block->is_filtered |
|
289
|
0 |
0 |
if (ref $block->$x) { } |
|
|
0 |
0 |
elsif (ref $block->$y eq 'Regexp') { } |
|
290
|
0 |
0 |
$block->name ? : |
|
294
|
0 |
0 |
ref $y ? : |
|
295
|
0 |
0 |
$block->name ? : |
|
298
|
0 |
0 |
$block->name ? : |
|
309
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
|
310
|
0 |
0 |
unless $block->is_filtered |
|
311
|
0 |
0 |
$block->name ? : |
|
322
|
0 |
0 |
unless exists $$block{$x} and exists $$block{$y} |
|
323
|
0 |
0 |
unless $block->is_filtered |
|
324
|
0 |
0 |
$block->name ? : |
|
335
|
0 |
0 |
unless exists $$block{$x} and defined $y |
|
336
|
0 |
0 |
unless $block->is_filtered |
|
337
|
0 |
0 |
ref $y ? : |
|
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 ? : |
|
360
|
0 |
0 |
unless $spec =~ s/\A\s*<<<(.*?)>>>\s*$//ms |
|
364
|
0 |
0 |
if $@ |
|
387
|
0 |
0 |
if (exists $$block{'ONLY'}) |
|
390
|
0 |
0 |
if exists $$block{'SKIP'} |
|
392
|
0 |
0 |
if (exists $$block{'LAST'}) |
|
401
|
0 |
0 |
if $$reserved_section_names{$id} or $id =~ /^_/ |
|
411
|
0 |
0 |
unless $hunk =~ s/\A\Q$cd\E[ \t]*(.*)\s+// |
|
416
|
0 |
0 |
unless ($description =~ /\S/) |
|
427
|
0 |
0 |
unless defined $value |
|
428
|
0 |
0 |
unless defined $filters |
|
429
|
0 |
0 |
if ($filters =~ /:(\s|\z)/) |
|
430
|
0 |
0 |
if $value =~ /\S/ |
|
433
|
0 |
0 |
unless defined $value |
|
449
|
0 |
0 |
if $self->_spec_string |
|
453
|
0 |
0 |
if (my $spec_file = $self->_spec_file) { } |
|
454
|
0 |
0 |
unless open FILE, $spec_file |
|
473
|
2 |
2 |
if $done |
|
476
|
0 |
84 |
if $status < 0 |
|
477
|
0 |
84 |
if (/^__(?:END|DATA)__\r?$/) |
|
492
|
0 |
0 |
unless @_ |
|
528
|
0 |
2 |
if defined &$accessor |
|
531
|
0 |
0 |
if (@_) |
|
534
|
0 |
0 |
unless $$self{$accessor} |
|
536
|
0 |
0 |
wantarray ? : |
|
551
|
0 |
0 |
unless defined &$accessor |
|
559
|
0 |
0 |
if $self->is_filtered |
|
566
|
0 |
0 |
$filter =~ s/=(.*)$// ? : |
|
570
|
0 |
0 |
if (defined &$function) { } |
|
573
|
0 |
0 |
if (not @value or @value == 1 and $value[0] =~ /\A(\d+|)\z/) |
|
581
|
0 |
0 |
unless $filter_object->can($filter) |
|
600
|
0 |
0 |
unless ref $map_filters |
|
608
|
0 |
0 |
unless length $filter |
|
609
|
0 |
0 |
if ($filter =~ s/^-//) { } |
|
|
0 |
0 |
elsif ($filter =~ s/^\+//) { } |