Branch Coverage

blib/lib/DBIx/MyParsePP/Token.pm
Criterion Covered Total %
branch 17 30 56.6


line true false branch
48 4 114 if $token->type eq $match
75 0 54 if ($type eq 'NCHAR_STRING') { }
0 54 elsif ($type eq 'IDENT_QUOTED') { }
0 54 elsif ($type eq 'GLOBAL_SYM') { }
0 54 elsif ($type eq 'SET_VAR') { }
0 54 elsif ($type eq 'BIN_NUM') { }
0 54 elsif ($type eq 'HEX_NUM') { }
0 54 elsif ($type eq 'TEXT_STRING') { }
0 54 elsif ($type eq 'UNDERSCORE_CHARSET') { }
0 54 elsif ($type eq '@') { }
43 11 elsif ($type eq 'IDENT' or $type eq 'LEX_HOSTNAME') { }
0 11 elsif ($$DBIx::MyParsePP::Symbols::functions{uc $value} eq $type) { }
0 11 elsif ($type eq '(') { }
11 0 elsif ($type eq '.' or $type eq '*') { }
118 0 46 unless $_[1]->isa('DBIx::MyParsePP::Token')