Condition Coverage

File:blib/lib/Date/Cmp.pm
Coverage:86.0%

line%coveragecondition
368100
ABdec
0X0
100
111
$complain and ref $complain ne "CODE"
373100
ABdec
0X0
100
111
defined $left and defined $right
382100
ABdec
0X0
100
111
&blessed($left) and $left->can("date")
38367
ABdec
0X0
100
111
&blessed($right) and $right->can("date")
389100
ABdec
0X0
100
111
defined $left and defined $right
44833
ABdec
000
011
1X1
ref $left || ref $right
75
ABCdec
0XX0
10X0
1100
1111
not ref $left || ref $right and $left =~ /\d{3,4}/ and $right =~ /\d{3,4}/
100
ABCdec
0XX0
10X0
1100
1111
not ref $left || ref $right and $left =~ /\d{3,4}/ and $right =~ /\d{3,4}/ and not $left =~ /^bet/i and not $left =~ /\-/
100
ABCdec
0XX0
10X0
1100
1111
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}$/
46467
ABdec
0X0
100
111
not ref $left || ref $right and $left =~ /(\d{3,4})$/
100
ABCdec
0XX0
10X0
1100
1111
not ref $left || ref $right and $left =~ /(\d{3,4})$/ and not $left =~ /^bet/i and not $left =~ /\-/
100
ABCdec
0XX0
10X0
1100
1111
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 =~ /\-/
33
ABdec
000
011
1X1
ref $left || ref $right
48475
ABCDEFGdec
0XXXXXX0
10XXXXX0
110XXXX0
1110XXX0
11110XX0
111110X0
11111100
11111111
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})$]
50733
ABdec
0X0
100
111
$left =~ /^bef/i and $left =~ /(\d{4})/
517100
ABdec
0X0
100
111
$left =~ m[/] and $left =~ m[^[a-z/]+\s+(.+)]i
528100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
$left =~ /^\d{3,4}/ and not $left =~ /\-/ and $right =~ /^\d{3,4}/ and not $right =~ /\-/
542100
ABdec
0X0
100
111
not $left =~ /^bet/i and $right =~ /^bet/
551100
ABdec
000
011
1X1
$left =~ /^(\d{3,4})\-(\d{3,4})$/ or $left =~ /^Bet (\d{3,4})\sand\s(\d{3,4})$/i
55367
ABdec
0X0
100
111
$complain and $start == $end
603100
ABdec
000
011
1X1
not $left =~ /[a-z]/i or $left =~ /[a-z]$/
61367
ABdec
000
011
1X1
$l[1] || $l[0]
638100
ABdec
0X0
100
111
$right =~ m[/] and $right =~ m[^[a-z/]+\s+(.+)]i
652100
ABdec
000
011
1X1
$right =~ /^(\d{3,4})\-(\d{3,4})$/ or $right =~ /^Bet (\d{3,4})\sand\s(\d{3,4})$/i
71167
ABdec
0X0
100
111
not ref $left and ref $right
71233
ABdec
0X0
100
111
ref $left and not ref $right