| line |
true |
false |
branch |
|
48
|
2 |
0 |
unless defined $specs{'random'}
|
|
86
|
2 |
4 |
if ($$handlers{$package})
|
|
91
|
4 |
0 |
if $ret
|
|
92
|
0 |
0 |
unless $no_die_on_fail and $error =~ m[Can't locate [\w\d_/\.]+\.pm in \@INC]
|
|
100
|
4 |
0 |
$ret ? :
|
|
127
|
1 |
1 |
if (my $aliases = $self->alias)
|
|
128
|
0 |
1 |
unless ref $aliases
|
|
130
|
0 |
1 |
unless eval "require $class; 1"
|
|
138
|
1 |
1 |
if (my $alias_map = $self->alias_to)
|
|
168
|
21 |
6 |
@_ == 1 ? :
|
|
172
|
27 |
0 |
if $name
|
|
177
|
0 |
27 |
unless $proto{'name'}
|
|
180
|
0 |
27 |
unless $proto{'method'}
|
|
194
|
4 |
4 |
$invocant_class->can('new') ? :
|
|
200
|
4 |
4 |
if $self->random
|
|
207
|
12 |
15 |
if ($item)
|
|
208
|
6 |
6 |
if ($item =~ /^\d+$/) { }
|
|
209
|
2 |
4 |
unless $$test{'start_line'} <= $item + 1
|
|
210
|
2 |
2 |
unless $$test{'end_line'} >= $item
|
|
213
|
4 |
2 |
unless $name eq $item
|
|
217
|
2 |
17 |
if ($$test{'skip'}) { }
|
|
|
2 |
15 |
elsif ($$test{'todo'}) { }
|
|
263
|
15 |
2 |
$ret ? :
|
|
270
|
2 |
0 |
if $$test{'should_fail'}
|
|
284
|
12 |
107 |
if @_
|