Branch Coverage

lib/SMS/Ringtone/RTTTL/Parser.pm
Criterion Covered Total %
branch 46 130 35.3


line true false branch
66 0 0 if ($$aref[$i] == $value)
69 0 0 if ($$aref[$i] > $value)
70 0 0 if ($i >= 1)
73 0 0 $value - $l < $h - $value ? :
86 1053 2407 if ($e eq $_)
153 0 15 unless (defined $rtttl)
168 15 0 if (defined $options and defined $$options{'STRICT_NOTE_PART_ORDER'}) { }
196 0 15 unless (@parts == 3)
222 15 0 if (length $name <= 15) { }
253 15 0 if (length $part)
256 0 50 unless ($def =~ /^(([doblv])=(\d+)|(s)=([ncs]))$/o)
263 50 0 if (defined $2) { }
271 9 41 if ($key eq 'd') { }
11 30 elsif ($key eq 'o') { }
15 15 elsif ($key eq 'b') { }
15 0 elsif ($key eq 'l') { }
0 0 elsif ($key eq 'v') { }
0 0 elsif ($key eq 's') { }
272 0 9 if (defined $d)
277 0 9 unless (&is_valid_duration($i))
286 0 11 if (defined $o)
291 0 11 unless (&is_valid_octave($i))
300 0 15 if (defined $b)
305 0 15 unless (&is_valid_bpm($i))
314 0 15 if (defined $l)
318 15 0 if (&is_valid_repeat($value)) { }
327 0 0 if (defined $v)
331 0 0 if (&is_valid_volume($value)) { }
340 0 0 if (defined $s)
348 9 6 if (defined $d)
351 11 4 if (defined $o)
354 15 0 if (defined $b)
357 15 0 if (defined $l)
360 0 15 if (defined $v)
363 0 15 if (defined $s)
380 0 15 unless (@notespart)
398 0 509 if (not $strict_note_part_order and $e =~ /^(\d*)([P;BEH]|[CDFGA]#?)([\.;&]?)(\d*)$/io)
401 0 509 unless ($e =~ /^(\d*)([P;BEH]|[CDFGA]#?)(\d*)([\.;&])?$/io)
406 166 343 length $1 ? :
407 0 509 unless (&is_valid_duration($duration))
412 0 509 if ($note eq 'H') { }
0 509 elsif ($note eq ';') { }
418 135 374 length $3 ? :
419 0 509 unless (&is_valid_octave($octave))
424 4 505 if (defined $4 and length $4)
425 4 0 if ($4 eq '.') { }
0 0 elsif ($4 eq ';') { }
0 0 elsif ($4 eq '&') { }
492 0 0 if (wantarray) { }
519 0 0 if (wantarray) { }
546 0 0 if ($self->has_errors)
561 0 0 if ($d{$_} > $maxuse)
569 0 0 if ($o{$_} > $maxuse)
576 0 0 unless ($defdur == $DEFAULTS{'d'})
579 0 0 unless ($defoct == $DEFAULTS{'o'})
582 0 0 unless ($self->get_bpm == $DEFAULTS{'b'})
585 0 0 unless ($self->get_style eq $DEFAULTS{'s'})
588 0 0 unless ($self->get_repeat == $DEFAULTS{'l'})
591 0 0 unless ($self->get_volume == $DEFAULTS{'v'})
598 0 0 unless ($defdur == $$n[0])
602 0 0 unless ($defoct == $$n[2])
605 0 0 if ($$n[3] > 0)
606 0 0 if ($$n[3] == 1) { }
0 0 elsif ($$n[3] == 2) { }
651 0 0 if (wantarray) { }