line |
true |
false |
branch |
78
|
0 |
1 |
if (@_) |
94
|
0 |
0 |
unless ($Test->ok($ok, $name) and return 1) |
95
|
0 |
0 |
if (ref $got and ref $expected) |
114
|
0 |
12 |
unless (&Scalar::Util::blessed($filter)) |
118
|
0 |
12 |
unless (defined $line and not ref $line and ref $ref eq 'HASH') |
123
|
0 |
12 |
unless ref $arr eq 'ARRAY' |
125
|
0 |
12 |
unless defined $$arr[0] |
128
|
0 |
12 |
unless defined $name |
130
|
12 |
0 |
_looks_ok($arr, [$line], $name) ? : |
138
|
0 |
15 |
unless (&Scalar::Util::blessed($filter)) |
142
|
0 |
15 |
unless (defined $line and ref $ref eq 'HASH') |
146
|
0 |
15 |
unless exists $$ref{'raw_line'} |
150
|
0 |
15 |
unless ref $arr eq 'ARRAY' |
153
|
0 |
15 |
unless defined $name |
154
|
15 |
0 |
_looks_ok($arr, [$ref], $name) ? : |
162
|
0 |
3 |
unless (&Scalar::Util::blessed($filter)) |
166
|
0 |
3 |
unless (defined $line and defined $cmd) |
172
|
0 |
3 |
unless ref $arr eq 'ARRAY' |
174
|
0 |
3 |
unless ref $$arr[0] eq 'HASH' |
177
|
0 |
3 |
unless defined $name |
178
|
3 |
0 |
_looks_ok($$arr[0]{'command'}, $cmd, $name) ? : |
185
|
0 |
3 |
unless (&Scalar::Util::blessed($filter)) |
190
|
0 |
3 |
unless (defined $line) |
195
|
0 |
3 |
unless ref $arr eq 'ARRAY' |
197
|
0 |
3 |
unless ref $$arr[0] eq 'HASH' |
200
|
0 |
3 |
unless defined $name |
201
|
3 |
0 |
_looks_ok($$arr[0]{'prefix'}, $pfx, $name) ? : |
208
|
0 |
2 |
unless (&Scalar::Util::blessed($filter)) |
213
|
0 |
2 |
unless (defined $line) |
218
|
0 |
2 |
unless ref $arr eq 'ARRAY' |
220
|
0 |
2 |
unless ref $$arr[0] eq 'HASH' |
223
|
0 |
2 |
unless defined $name |
224
|
2 |
0 |
_looks_ok($$arr[0]{'params'}, $pref, $name) ? : |
231
|
0 |
0 |
unless (&Scalar::Util::blessed($filter)) |
235
|
0 |
0 |
unless (defined $line) |
240
|
0 |
0 |
unless ref $arr eq 'ARRAY' |
242
|
0 |
0 |
unless ref $$arr[0] eq 'HASH' |
245
|
0 |
0 |
unless defined $name |
246
|
0 |
0 |
_looks_ok($$arr[0]{'raw_line'}, $line, $name) ? : |
253
|
0 |
2 |
unless (&Scalar::Util::blessed($filter)) |
257
|
0 |
2 |
unless (defined $line) |
262
|
0 |
2 |
unless ref $arr eq 'ARRAY' |
264
|
0 |
2 |
unless ref $$arr[0] eq 'HASH' |
267
|
0 |
2 |
unless defined $name |
268
|
2 |
0 |
_looks_ok($$arr[0]{'tags'}, $tags, $name) ? : |