line |
true |
false |
branch |
116
|
1 |
0 |
if ($status == 0) { }
|
144
|
0 |
52 |
unless $error =~ /Use of uninitialized value/
|
147
|
2 |
42 |
unless -f $got
|
148
|
2 |
40 |
unless -f $exp
|
151
|
40 |
0 |
unless (&blessed($got) and $got->isa("Spreadsheet::Read"))
|
156
|
40 |
0 |
unless (&blessed($exp) and $exp->isa("Spreadsheet::Read"))
|
169
|
15 |
14 |
if defined $spec
|
170
|
25 |
3 |
unless defined $error_limit
|
172
|
1 |
27 |
if (@gotWorkSheets != @expWorkSheets)
|
182
|
6 |
21 |
if defined $sheet
|
191
|
23 |
26 |
unless (exists $spec->{'ALL'})
|
192
|
0 |
23 |
if (uc $gotSheetName ne uc $expSheetName)
|
209
|
0 |
49 |
if (defined $gotRowMax and defined $expRowMax and $gotRowMax != $expRowMax)
|
216
|
0 |
49 |
if (defined $gotColMax and defined $expColMax and $gotColMax != $expColMax)
|
240
|
20 |
45 |
if defined $spec and exists $spec->{'ALL'} && exists $spec->{'ALL'}{$col} && exists $spec->{'ALL'}{$col}{$row} && exists $spec->{'ALL'}{$col}{$row}{$IGNORE} || exists $$spec{uc $gotSheetName} && exists $$spec{uc $gotSheetName}{$col} && exists $$spec{uc $gotSheetName}{$col}{$row} && exists $$spec{uc $gotSheetName}{$col}{$row}{$IGNORE}
|
244
|
1779 |
72 |
if (defined $gotData and defined $expData)
|
246
|
1555 |
224 |
if ($gotData =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ and $expData =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/) { }
|
251
|
0 |
1555 |
if ($gotData < $ALMOST_ZERO and $expData < $ALMOST_ZERO) { }
|
256
|
101 |
1454 |
if (defined $rule and scalar keys %$rule) { }
|
260
|
65 |
36 |
if (defined $spec and exists $$spec{uc $gotSheetName} and exists $$spec{uc $gotSheetName}{$col} and exists $$spec{uc $gotSheetName}{$col}{$row} and exists $$spec{uc $gotSheetName}{$col}{$row}{$SPECIAL_CASE} or @sheets and grep /$gotSheetName/, @sheets) { }
|
280
|
8 |
93 |
if (defined $compare_with and $compare_with < $difference) { }
|
293
|
2 |
1452 |
if ($expData != $gotData) { }
|
306
|
57 |
167 |
if (defined $spec and exists $$spec{uc $gotSheetName} and exists $$spec{uc $gotSheetName}{$col} and exists $$spec{uc $gotSheetName}{$col}{$row} and exists $$spec{uc $gotSheetName}{$col}{$row}{$REGEX_CASE} or exists $spec->{'ALL'}{$col} and exists $spec->{'ALL'}{$col}{$row} and exists $spec->{'ALL'}{$col}{$row}{$REGEX_CASE} or @sheets and grep /$gotSheetName/, @sheets) { }
|
321
|
56 |
1 |
if ($gotData =~ /$exp/i and $expData =~ /$exp/i) { }
|
333
|
10 |
157 |
if (uc $gotData ne uc $expData) { }
|
335
|
10 |
0 |
if (defined $rule) { }
|
351
|
62 |
1715 |
if (exists $rule->{'swap_check'} and defined $rule->{'swap_check'} and $rule->{'swap_check'}) { }
|
355
|
16 |
46 |
if ($status == 0)
|
360
|
0 |
9 |
if ($error_on_sheet >= $error_limit and $error_on_sheet % 2 == 0 and not _is_swapping($swap))
|
369
|
3 |
1712 |
if $status == 0
|
374
|
0 |
7 |
if ($error_on_sheet > 0 and $error_on_sheet >= $error_limit and $error_on_sheet % 2 == 0 and not _is_swapping($swap))
|
378
|
0 |
0 |
if $status == 0
|
382
|
9 |
0 |
if (exists $rule->{'swap_check'} and defined $rule->{'swap_check'} and $rule->{'swap_check'})
|
386
|
3 |
6 |
if ($error_on_sheet > 0 and _is_swapping($swap))
|
474
|
0 |
59 |
unless defined $cell
|
476
|
0 |
59 |
unless $cell =~ /([A-Za-z]+)(\d+)/
|
498
|
1 |
59 |
if $incr
|
533
|
0 |
27 |
unless defined $range
|
537
|
0 |
29 |
unless $_range =~ /(\w+\d+):(\w+\d+)/
|
561
|
0 |
16 |
unless defined $spec
|
563
|
1 |
15 |
unless -f $spec
|
572
|
0 |
59 |
unless $row =~ /\w/
|
573
|
0 |
59 |
if $row =~ /^#/
|
575
|
28 |
31 |
if ($row =~ /^sheet\s+(.*)/i) { }
|
|
20 |
11 |
elsif (defined $sheet and $row =~ /^range\s+(.*)/i) { }
|
|
4 |
7 |
elsif (defined $sheet and $row =~ /^regex\s+(.*)/i) { }
|
|
6 |
1 |
elsif (defined $sheet and $row =~ /^ignorerange\s+(.*)/i) { }
|
611
|
9 |
78 |
unless defined $hash and defined $key
|
612
|
0 |
78 |
unless ref $hash eq "HASH"
|
614
|
53 |
25 |
unless exists $hash->{$key}
|
621
|
0 |
13 |
unless defined $data
|
627
|
0 |
24 |
if grep /$exp->[0]/, @{$out;}
|
636
|
0 |
3520 |
unless defined $message
|
638
|
0 |
3520 |
if $ENV{'DEBUG'}
|
644
|
3 |
37 |
unless defined $rule
|
646
|
2 |
35 |
unless ref $rule eq "HASH"
|
651
|
0 |
8 |
if $keys == 1 and exists $rule->{'message'}
|
653
|
1 |
34 |
if $keys > 8
|
667
|
2 |
76 |
unless exists $valid->{$key}
|
670
|
6 |
26 |
if exists $rule->{'spec'} and keys %$rule == 1
|
672
|
22 |
4 |
if (exists $rule->{'spec'} and defined $rule->{'spec'} or exists $rule->{'sheet'} and defined $rule->{'sheet'}) { }
|
678
|
2 |
20 |
unless exists $rule->{'sheet_tolerance'} and defined $rule->{'sheet_tolerance'}
|
681
|
4 |
16 |
unless exists $rule->{'tolerance'} and defined $rule->{'tolerance'}
|
684
|
0 |
4 |
if (exists $rule->{'sheet_tolerance'} and defined $rule->{'sheet_tolerance'} or exists $rule->{'tolerance'} and defined $rule->{'tolerance'})
|
693
|
0 |
0 |
unless exists $rule->{'sheet'} and defined $rule->{'sheet'} or exists $rule->{'spec'} and defined $rule->{'spec'}
|