| line |
true |
false |
branch |
|
47
|
2 |
0 |
if $is_export_ok{$sub} |
|
67
|
2 |
9 |
if ($class and $class eq 'Data::PatternCompare::Any') |
|
77
|
28 |
24 |
if (ref $val eq 'ARRAY') { } |
|
78
|
16 |
12 |
unless defined $$val[1] |
|
86
|
18 |
6 |
unless defined $$val{"empty \300\336"} |
|
96
|
2 |
8 |
if (_is_empty($expected)) |
|
101
|
1 |
6 |
if (_is_any($$expected[$i]) and not exists $$got[$i]) |
|
104
|
2 |
3 |
unless $self->_pattern_match($$got[$i], $$expected[$i]) |
|
113
|
2 |
6 |
if (_is_empty($expected)) |
|
118
|
1 |
3 |
if (_is_any($$expected{$key}) and not exists $$got{$key}) |
|
121
|
1 |
2 |
unless $self->_pattern_match($$got{$key}, $$expected{$key}) |
|
131
|
18 |
25 |
unless ($ref) |
|
133
|
3 |
15 |
unless (defined $expected and defined $got) |
|
134
|
1 |
2 |
unless (defined $expected or defined $got) |
|
140
|
13 |
2 |
if (looks_like_number $expected) |
|
141
|
1 |
12 |
unless looks_like_number $got |
|
143
|
2 |
10 |
if (isfloat $expected or isfloat $got) |
|
154
|
1 |
24 |
if (exists $$is_dup{$addr}) |
|
160
|
4 |
20 |
if ($class) |
|
161
|
4 |
0 |
if $class eq 'Data::PatternCompare::Any' |
|
170
|
1 |
19 |
unless $code |
|
172
|
1 |
18 |
unless ref $got eq $ref |
|
185
|
2 |
32 |
if $@ |
|
194
|
3 |
6 |
if ($tmp[0] + $tmp[1]) |
|
201
|
1 |
5 |
unless ($sizea eq $sizeb) |
|
202
|
1 |
0 |
$sizea > $sizeb ? : |
|
208
|
1 |
3 |
if $res |
|
218
|
3 |
5 |
if ($tmp[0] + $tmp[1]) |
|
225
|
1 |
4 |
unless ($sizea eq $sizeb) |
|
226
|
1 |
0 |
$sizea > $sizeb ? : |
|
230
|
1 |
3 |
unless exists $$pb{$key} |
|
234
|
1 |
2 |
if $res |
|
249
|
7 |
27 |
unless $cnt |
|
252
|
5 |
22 |
if ($cnt == 1) |
|
254
|
2 |
3 |
$refb ? : |
|
264
|
2 |
20 |
if (exists $$is_dupa{$addra} or exists $$is_dupb{$addrb}) |
|
270
|
2 |
38 |
if $_ |
|
274
|
0 |
20 |
if ($cnt == 1) |
|
275
|
0 |
0 |
$classb eq 'Data::PatternCompare::Any' ? : |
|
279
|
1 |
19 |
if $cnt == 2 |
|
282
|
1 |
18 |
unless $refa eq $refb |
|
285
|
1 |
17 |
unless $code |
|
300
|
3 |
22 |
if $@ |
|
308
|
3 |
6 |
unless scalar @$got == scalar @$expected |
|
311
|
2 |
4 |
unless $self->_eq_pattern($$got[$i], $$expected[$i]) |
|
320
|
2 |
5 |
unless scalar keys %$got == scalar keys %$expected |
|
323
|
2 |
2 |
unless $self->_eq_pattern($$got{$key}, $$expected{$key}) |
|
333
|
16 |
27 |
unless ($ref) |
|
335
|
3 |
13 |
unless (defined $expected and defined $got) |
|
336
|
1 |
2 |
unless (defined $expected or defined $got) |
|
342
|
10 |
3 |
if (looks_like_number $expected) |
|
343
|
0 |
10 |
unless looks_like_number $got |
|
345
|
2 |
8 |
if (isfloat $expected or isfloat $got) |
|
356
|
1 |
26 |
if (exists $$is_dup{$addr}) |
|
362
|
9 |
17 |
if ($class) |
|
372
|
0 |
17 |
unless $code |
|
374
|
1 |
16 |
unless ref $got eq $ref |
|
388
|
1 |
31 |
if $@ |