| line |
true |
false |
branch |
|
22
|
6 |
2 |
if (defined $plan)
|
|
24
|
0 |
6 |
unless $plan =~ /\d/
|
|
45
|
1 |
24 |
if (&any(sub {
/^[-+]/;
}
, @tags_copy))
|
|
50
|
0 |
30 |
unless ($tag =~ /^\w+$/)
|
|
58
|
0 |
2 |
if (exists $BY_METHOD{'tags'}{$method} and exists $BY_METHOD{'tags'}{$method}{$test_class})
|
|
84
|
0 |
2 |
unless defined $test_class
|
|
85
|
0 |
2 |
unless defined $tag
|
|
90
|
22 |
22 |
unless $method =~ /test_/
|
|
91
|
1 |
21 |
if $class->method_has_tag($test_class, $method, $tag)
|
|
99
|
0 |
422 |
unless defined $test_class
|
|
100
|
0 |
422 |
unless defined $method
|
|
101
|
0 |
422 |
unless defined $tag
|
|
104
|
321 |
101 |
unless exists $BY_METHOD{'tags'}{$method}
|
|
106
|
4 |
97 |
unless (exists $BY_METHOD{'tags'}{$method}{$test_class})
|
|
120
|
0 |
5 |
unless defined $test_class
|
|
121
|
0 |
5 |
unless defined $method
|
|
123
|
0 |
5 |
unless exists $BY_METHOD{'tags'}{$method}
|
|
128
|
5 |
0 |
if $test_class_meta->can('find_next_method_by_name')
|
|
131
|
1 |
4 |
unless ($method_meta)
|
|
137
|
1 |
0 |
if ($orig and $mm->package_name ne $orig->package_name)
|
|
143
|
0 |
5 |
unless $method_meta
|
|
146
|
5 |
0 |
if (exists $BY_METHOD{'tags'}{$method}{$super_test_class})
|
|
162
|
0 |
1 |
unless defined $test_class
|
|
163
|
0 |
1 |
unless defined $method
|
|
171
|
1 |
1 |
if ($direction eq '+') { }
|
|
|
1 |
0 |
elsif ($direction eq '-') { }
|