Branch Coverage

blib/lib/Perlito6/Emitter/Token.pm
Criterion Covered Total %
branch 13 40 32.5


line true false branch
22 0 9 if ($str eq '\\')
25 0 9 if ($str eq q['])
28 9 0 if ($len) { }
49 0 4 if ($self->{'quant'} eq '' and $self->{'greedy'} eq '')
52 4 0 if ($self->{'quant'} eq '+' and $self->{'greedy'} eq '')
56 0 0 if ($self->{'quant'} eq '*' and $self->{'greedy'} eq '')
60 0 0 if ($self->{'quant'} eq '?' and $self->{'greedy'} eq '')
80 8 0 defined $self->{'or_list'} ? :
84 4 0 defined $self->{'or_list'} ? :
95 15 0 defined $self->{'concat'} ? :
99 11 0 defined $self->{'concat'} ? :
111 0 2 1 + index($self->{'metasyntax'}, '.') ? :
113 0 2 if ($self->{'captures'} == 1) { }
117 0 2 if ($self->{'captures'} > 1) { }
128 0 2 if ($self->{'captures'} > 0)
193 0 0 if ($char eq 'n')
196 0 0 if ($char eq 'N')
199 0 0 if ($char eq 'd')
202 0 0 if ($char eq 's')
205 0 0 if ($char eq 't')