Branch Coverage

blib/lib/AI/Gene/Sequence.pm

Criterion	Covered	Total	%
branch	83	98	84.6

line	true	false	branch
32	30	30	if (ref $_[1] eq 'HASH') { }
43	208	60	unless $rand < $$hr_probs{$mutation}
64	0	31	if ($sum <= 0) { }
85	3	39	defined $_[1] ? :
86	1	41	if $pos > $length
90	0	41	unless $self->valid_gene($new, $pos)
110	8	32	!defined($_[2]) ? :
111	0	40	if $length - $len <= 0
112	4	36	defined $_[1] ? :
113	1	39	if $pos >= $length
116	0	39	unless $self->valid_gene($new, $pos)
137	9	31	!defined($_[3]) ? :
138	6	34	defined $_[1] ? :
139	6	34	defined $_[2] ? :
141	11	29	if $pos1 + $len > $length
142	1	28	if $pos2 > $length
145	0	28	unless $self->valid_gene($new)
168	16	33	!defined($_[3]) ? :
169	6	43	defined $_[1] ? :
170	6	43	defined $_[2] ? :
171	18	31	if $pos1 + $len >= $length or $pos2 > $length
174	0	31	unless $self->valid_gene($new)
198	4	31	defined $_[1] ? :
199	1	34	!defined($_[2]) ? :
201	12	23	if $pos >= $length or $pos + $len > $length
206	0	23	unless $self->valid_gene($new)
225	2	39	defined $_[1] ? :
226	1	40	if $pos >= length $$self[0]
230	40	0	if ($token[0] eq $type) { }
236	0	0	unless $self->valid_gene($new, $pos)
255	2	39	defined $_[1] ? :
256	1	40	if $pos >= length $$self[0]
260	0	40	unless $self->valid_gene($new, $pos)
283	7	34	defined $_[1] ? :
284	7	34	defined $_[2] ? :
285	7	34	!defined($_[3]) ? :
286	7	34	!defined($_[4]) ? :
289	3	38	if $pos1 == $pos2
290	14	24	if ($pos1 > $pos2)
294	4	11	if ($pos1 + $len1 > $pos2 or $pos2 + $len2 > $length or $pos1 >= $length)
301	0	11	unless $self->valid_gene($new)
326	8	38	defined $_[1] ? :
327	8	38	defined $_[2] ? :
328	9	37	!defined($_[3]) ? :
331	9	29	if ($pos1 + $len > $length or $pos2 >= $length or $pos2 < $pos1 + $len and $pos2 > $pos1)
336	17	12	if ($pos1 < $pos2) { }
342	0	29	unless $self->valid_gene($new)
344	17	12	if ($pos1 < $pos2) { }
370	0	0	unless ($token_type)