Branch Coverage

blib/lib/Data/Validate/MySQL.pm

Criterion	Covered	Total	%
branch	271	352	76.9

line	true	false	branch
196	0	139	if ref $_[0]
201	0	139	unless is_integer($size)
202	0	139	unless $size >= 1 and $size <= 64
204	0	139	unless defined $value
205	2	137	unless length $value
207	130	7	if ($raw) { }
209	1	129	if $value =~ /[^0-1]/
210	1	128	if length $value > $size
218	2	5	unless defined is_integer($value)
221	1	4	unless $value >= 0
225	1	3	unless $value <= oct '0b' . '1' x $size
277	0	780	if ref $_[0]
281	0	780	unless defined $value
282	3	777	unless length $value
284	3	774	unless defined is_integer($value)
289	258	516	if ($unsigned)
338	0	266	if ref $_[0]
387	2	10	if ref $_[0]
391	2	8	unless defined $value
392	3	5	unless length $value
394	0	3	unless defined is_integer($value)
399	0	3	if ($unsigned)
450	2	10	if ref $_[0]
454	2	8	unless defined $value
455	3	5	unless length $value
457	0	2	unless defined is_integer($value)
462	0	2	if ($unsigned)
513	2	10	if ref $_[0]
517	2	8	unless defined $value
518	3	5	unless length $value
520	0	2	unless defined is_integer($value)
527	0	2	if ($unsigned)
578	0	12	if ref $_[0]
582	0	12	unless defined $value
583	2	10	unless length $value
585	2	8	unless defined is_integer($value)
592	3	5	if ($unsigned)
659	6	15	if ref $_[0]
666	4	17	if (defined $m and length $m)
667	0	4	unless is_integer($m) and $m > 0
669	2	19	if (defined $d and length $d)
670	0	21	unless is_integer($d) and $m > 0
673	4	15	unless defined $value
674	0	0	unless length $value
675	0	15	unless defined is_numeric($value)
680	4	11	if ($unsigned)
681	1	3	unless $v->is_pos
686	2	12	if ($m)
687	1	1	if $man > $m
689	2	11	if ($d)
690	1	12	if $exp > $d
696	6	7	if $v == 0
697	4	9	if $v >= 'Math::BigFloat'->new('-3.402823466E+38') and $v <= 'Math::BigFloat'->new('-1.175494351E-38')
698	0	12	if $v >= 'Math::BigFloat'->new('1.175494351E-38') and $v <= 'Math::BigFloat'->new('3.402823466E+38')
700	0	12	unless $ok
768	6	15	if ref $_[0]
775	4	17	if (defined $m and length $m)
776	0	4	unless is_integer($m) and $m > 0
778	2	19	if (defined $d and length $d)
779	0	21	unless is_integer($d) and $m > 0
782	4	15	unless defined $value
783	0	0	unless length $value
784	0	15	unless defined is_numeric($value)
789	4	11	if ($unsigned)
790	1	3	unless $v->is_pos
795	2	12	if ($m)
796	1	1	if $man > $m
798	2	11	if ($d)
799	1	12	if $exp > $d
805	6	7	if $v == 0
806	4	9	if $v >= 'Math::BigFloat'->new('-1.7976931348623157E+308') and $v <= 'Math::BigFloat'->new('-2.2250738585072014E-308')
807	0	5	if $v >= 'Math::BigFloat'->new('2.2250738585072014E-308') and $v <= 'Math::BigFloat'->new('1.7976931348623157E+308')
809	0	5	unless $ok
872	0	15	if ref $_[0]
879	2	13	unless is_integer($m) and $m > 0
880	3	10	unless defined is_integer($d)
882	0	11	unless defined $value
883	0	0	unless length $value
884	0	8	unless defined is_numeric($value)
889	3	5	if ($unsigned)
890	0	8	unless $v->is_pos
894	4	4	unless $man
895	8	0	unless $exp
897	4	0	if ($m)
898	0	4	if $man > $m
900	0	6	if ($d)
901	0	21	if $exp > $d
966	0	9	if ref $_[0]
971	0	9	unless is_integer($length) and $length > 0 and $length <= 255
973	2	7	unless defined $value
975	3	4	unless length $value <= $length
978	1	14	unless defined $value
1104	0	3	if ref $_[0]
1109	0	3	unless is_integer($length) and $length > 0 and $length <= 255
1111	0	3	unless defined $value
1114	1	2	unless length $value <= $length
1118	1	1	unless defined $value
1336	0	3	if ref $_[0]
1339	0	3	unless defined $value
1343	1	2	unless length $value <= 65535
1347	1	1	unless defined $value
1395	1	2	if ref $_[0]
1398	1	1	unless defined $value
1400	0	15	unless length $value <= 65535
1403	3	11	unless defined $value
1451	0	2	if ref $_[0]
1454	0	12	unless defined $value
1458	0	12	unless length $value <= 16777215
1508	0	2	if ref $_[0]
1511	0	8	unless defined $value
1513	0	8	unless length $value <= 16777215
1567	0	2	if ref $_[0]
1570	0	2	unless defined $value
1574	0	2	unless length $value <= 4294967295
1629	0	2	if ref $_[0]
1632	0	2	unless defined $value
1634	0	2	unless length $value <= 4294967295
1697	1	4	if ref $_[0]
1701	2	2	unless defined $value
1702	0	21	unless length $value
1708	0	6	if (exists $lookup{$value})
1776	1	7	if ref $_[0] and ref $_[0] ne 'ARRAY'
1780	1	6	unless ref $values and ref $values eq 'ARRAY'
1782	3	6	unless scalar @{$values;}
1783	3	6	if scalar @{$values;} > 64
1792	3	3	unless exists $lookup{$v}
1793	0	12	unless $ok
1800	0	12	unless $ok
1873	3	42	if ref $_[0]
1877	12	37	unless $status
1925	0	59	if ref $_[0]
1929	11	47	unless $status
1982	5	29	if ref $_[0]
2069	0	11	if ref $_[0]
2073	1	10	unless $status
2076	0	10	unless $hr >= -838 and $hr <= 838
2077	1	13	unless $min >= 0 and $min <= 59
2078	4	3	unless $sec >= 0 and $sec <= 59
2167	1	6	if ($v =~ /^(\d{2})$/)
2172	2	2	if ($v =~ /^(?:(\d{1,2})\s{1,2})?(\-?\d{1,2})(?::(\d{1,2}))?(?::(\d{1,2}))?(?:\.\d+)?$/)
2174	0	7	unless $d
2175	1	6	unless $s
2176	7	6	unless $m
2180	2	4	unless $d >= 0 and $d <= 34
2189	0	46	if ($v =~ /^(\d{2})(\d{2})(\d{2})(?:\.\d+)?$/)
2196	11	34	if ($v =~ /^(\d{2})(\d{2})$/)
2210	38	90	if ($v =~ /(^\d{4})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})\s{1,3}(\d{1,2})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})$/)
2213	4	39	unless _validate_date(@bits)
2214	8	38	unless _validate_time(@bits)
2220	24	66	if ($v =~ /(^\d{2})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})\s{1,3}(\d{1,2})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})$/)
2225	6	18	if ($bits[0] <= 69) { }
2231	0	24	unless _validate_date(@bits)
2232	0	24	unless _validate_time(@bits)
2238	12	54	if ($v =~ /(^\d{4})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})$/)
2241	0	12	unless _validate_date(@bits)
2246	12	42	if ($v =~ /(^\d{2})[[:punct:]](\d{1,2})[[:punct:]](\d{1,2})$/)
2251	0	12	if ($bits[0] <= 69) { }
2256	0	12	unless _validate_date(@bits)
2262	6	36	if ($v =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/)
2265	0	6	unless _validate_date(@bits)
2266	0	6	unless _validate_time(@bits)
2272	9	27	if ($v =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/)
2276	0	9	if ($bits[0] <= 69) { }
2281	0	9	unless _validate_date(@bits)
2282	3	6	unless _validate_time(@bits)
2288	6	21	if ($v =~ /^(\d{4})(\d{2})(\d{2})$/)
2291	3	3	unless _validate_date(@bits)
2297	6	15	if ($v =~ /^(\d{2})(\d{2})(\d{2})$/)
2301	0	6	if ($bits[0] <= 69) { }
2307	3	3	unless _validate_date(@bits)
2320	0	113	unless $y >= 1000 and $y <= 9999
2321	6	107	unless $m >= 1 and $m <= 12
2322	0	107	unless $d >= 1 and $m <= 31
2331	2	75	unless $hr >= 0 and $hr <= 23
2332	5	70	unless $min >= 0 and $min <= 59
2333	2	68	unless $sec >= 0 and $sec <= 59