Branch Coverage

blib/lib/Text/APL/Parser.pm
Criterion Covered Total %
branch 28 28 100.0


line true false branch
34 24 39 unless (defined $input)
35 12 12 unless defined $self->{'buffer'}
38 9 3 $buffer =~ /$LINE_TOKEN/msx ? :
44 2 37 if (defined $self->{'buffer'})
52 16 46 if ($input =~ /\G $TOKEN/cgmsx) { }
14 32 elsif ($input =~ /\G $LINE_TOKEN \n/cgmsx) { }
11 21 elsif ($input =~ /\G (.+?) (?=$TOKEN_START | $LINE_TOKEN_START)/cgmsx) { }
62 13 8 if ($input =~ /( (?:$TOKEN_START | $LINE_TOKEN_START) .* )/cgmsx) { }
1 7 elsif ($input =~ /( $LEFTOVER_TOKEN ) $/cgmsx) { }
71 7 14 if (defined $value and $value ne '')
86 12 4 defined $modifier ? :
87 3 13 if defined $modifier and length $modifier == 2
96 12 11 defined $modifier ? :
97 5 18 if defined $modifier and length $modifier == 2