| line | % | coverage | branch |
|---|
| 368 | 100 | T | F | if ($complain and ref $complain ne "CODE") |
| 373 | 100 | T | F | unless (defined $left and defined $right) |
| 375 | 100 | T | F | unless defined $left |
| 376 | 100 | T | F | unless defined $right |
| 382 | 100 | T | F | if (&blessed($left) and $left->can("date")) |
| 383 | 100 | T | F | if (&blessed($right) and $right->can("date")) |
| 384 | 100 | T | F | if (ref $left eq "HASH") |
| 385 | 100 | T | F | if (ref $right eq "HASH") |
| 389 | 100 | T | F | unless (defined $left and defined $right) |
| 391 | 100 | T | F | unless defined $left |
| 392 | 100 | T | F | unless defined $right |
| 396 | 100 | T | F | if (ref $left) |
| 399 | 100 | T | F | if (ref $right) |
| 404 | 100 | T | F | if $left eq $right |
| 413 | 100 | T | F | unless (defined $safe_left) |
| 416 | 100 | T | F | unless (defined $safe_right) |
| 427 | 100 | T | F | unless ($left =~ /^[A-S0-9]/i) |
| 431 | 100 | T | F | unless ($right =~ /^[A-S0-9]/i) |
| 438 | 100 | T | F | if ($left =~ /^\d{5,}$/) |
| 441 | 100 | T | F | if ($right =~ /^\d{5,}$/) |
| 448 | 100 | T | F | if (not ref $left || ref $right and $left =~ /\d{3,4}/ and $right =~ /\d{3,4}/ and not $left =~ /^bet/i and not $left =~ /\-/ and not $right =~ /^bet/i and not $right =~ /^\d{3,4}\-\d{3,4}$/) |
| 453 | 100 | T | F | if ($left =~ /(\d{4})/) |
| 455 | 50 | T | F | if ($right =~ /(\d{4})/) |
| 457 | 100 | T | F | if $lyear != $ryear |
| 464 | 100 | T | F | if (not ref $left || ref $right and $left =~ /(\d{3,4})$/ and not $left =~ /^bet/i and not $left =~ /\-/ and not $right =~ /^bet/i and not $right =~ /\-/) |
| 469 | 100 | T | F | if ($right =~ /(\d{3,4})$/) |
| 471 | 100 | T | F | if $yol != $yor |
| 475 | 50 | T | F | unless (ref $left) |
| 484 | 100 | T | F | if (not ref $right and $left =~ m[(^|[\s/])\d{4}$] and not $left =~ /^bet/i and not $left =~ /\-/ and not $right =~ /^bet/i and not $right =~ /\-/ and $right =~ m[(^|[\s/,])(\d{4})$]) |
| 493 | 50 | T | F | if $lyear != $ryear |
| 497 | 100 | T | F | if ($left =~ /^(bef|aft)/i) |
| 498 | 100 | T | F | if ($right =~ /^\d+$/) |
| 500 | 50 | T | F | if ($left =~ /\s(\d+)$/) |
| 501 | 50 | T | F | if $1 < $right |
| 504 | 50 | T | F | if ($right =~ /(\d{4})/) |
| 507 | 50 | T | F | if ($left =~ /^bef/i and $left =~ /(\d{4})/) |
| 508 | 0 | T | F | if $1 < $ryear |
| 517 | 100 | T | F | if ($left =~ /^(Abt|ca?)\.?\s+(.+)/i) { } |
| 100 | T | F | elsif ($left =~ /(.+?)\s?\?$/) { } |
| 100 | T | F | elsif ($left =~ m[/] and $left =~ m[^[a-z/]+\s+(.+)]i) { } |
| 528 | 100 | T | F | if ($left =~ /^\d{3,4}/ and not $left =~ /\-/ and $right =~ /^\d{3,4}/ and not $right =~ /\-/) |
| 533 | 50 | T | F | if $start != $end |
| 540 | 100 | T | F | if ($left =~ /(\d{3,4})/) |
| 542 | 100 | T | F | if (not $left =~ /^bet/i and $right =~ /^bet/) |
| 543 | 50 | T | F | if ($right =~ /(\d{3,4})/) |
| 545 | 50 | T | F | if $start != $end |
| 551 | 100 | T | F | if ($left =~ /^(\d{3,4})\sor\s(\d{3,4})$/) { } |
| 100 | T | F | elsif ($left =~ /^(\d{3,4})\-(\d{3,4})$/ or $left =~ /^Bet (\d{3,4})\sand\s(\d{3,4})$/i) { } |
| 100 | T | F | elsif (not $left =~ /^\d{3,4}$/) { } |
| 553 | 100 | T | F | if $complain and $start == $end |
| 562 | 100 | T | F | if ($from == $to) { } |
| 100 | T | F | elsif ($from > $to) { } |
| 564 | 100 | T | F | if $complain |
| 569 | 50 | T | F | if $complain |
| 574 | 100 | T | F | unless ($right =~ /^\d{4}$/) |
| 576 | 100 | T | F | unless (defined $r[0]) |
| 577 | 100 | T | F | if ($right =~ m[[\s/](\d{4})$]) |
| 581 | 100 | T | F | $year > $to ? : |
| 100 | T | F | $year < $from ? : |
| 594 | 100 | T | F | if $right < $from |
| 595 | 100 | T | F | if $right > $to |
| 601 | 100 | T | F | unless ($left =~ /^\d{4}\-\d{2}\-\d{2}$/) |
| 603 | 100 | T | F | if (not $left =~ /[a-z]/i or $left =~ /[a-z]$/) |
| 614 | 100 | T | F | unless (defined $rc) |
| 623 | 50 | T | F | unless (ref $right) |
| 625 | 100 | T | F | if ($right =~ /^bef/i) |
| 626 | 100 | T | F | if ($left =~ /^\d+$/) |
| 628 | 50 | T | F | if ($right =~ /\s(\d+)$/) |
| 638 | 100 | T | F | if ($right =~ /^(Abt|ca?)\.?\s+(.+)/i) { } |
| 100 | T | F | elsif ($right =~ /(.+?)\s?\?$/) { } |
| 100 | T | F | elsif ($right =~ m[/] and $right =~ m[^[a-z/]+\s+(.+)]i) { } |
| 647 | 100 | T | F | if ($right =~ /^\d{3,4}$/) |
| 648 | 100 | T | F | ref $left ? : |
| 652 | 100 | T | F | if ($right =~ /^(\d{3,4})\-(\d{3,4})$/ or $right =~ /^Bet (\d{3,4})\sand\s(\d{3,4})$/i) |
| 657 | 100 | T | F | if ($from == $to) { } |
| 100 | T | F | elsif ($from > $to) { } |
| 659 | 100 | T | F | if $complain |
| 662 | 100 | T | F | ref $left ? : |
| 671 | 100 | T | F | if (ref $left) |
| 674 | 100 | T | F | if $left < $from |
| 675 | 100 | T | F | if $left > $to |
| 682 | 50 | T | F | if ($left =~ /(\d{3,4})/) |
| 684 | 100 | T | F | if ($right =~ /(\d{3,4})/) |
| 686 | 100 | T | F | if $start != $end |
| 692 | 100 | T | F | unless (defined $r[0]) |
| 693 | 100 | T | F | if ($right =~ m[[\s/](\d{4})$]) |
| 696 | 100 | T | F | if (ref $left) { } |
| 697 | 50 | T | F | if $left->year != $year |
| 699 | 50 | T | F | if $left != $year |
| 711 | 100 | T | F | if not ref $left and ref $right |
| 712 | 50 | T | F | if ref $left and not ref $right |
| 730 | 50 | T | F | unless defined $val |