Branch Coverage

blib/lib/DDC/PP/yyqlexer.pm
Criterion Covered Total %
branch 180 284 63.3


line true false branch
141 0 199 if $which eq 'fh'
142 0 199 if $which eq 'file'
149 0 0 if ref $file
150 0 0 unless my $fh = 'IO::File'->new("<$file")
152 0 0 if $lex->{'utf8'}
162 0 0 if ($FH_SLURP)
176 0 0 unless defined $lex->{'src'}
185 199 0 if (ref $str) { }
187 199 0 unless defined $lex->{'src'}
190 0 0 unless defined $lex->{'src'}
196 199 0 if ($lex->{'utf8'} and not utf8::is_utf8(${$$lex{'bufr'};})) { }
0 0 elsif (not $lex->{'utf8'} and utf8::is_utf8(${$$lex{'bufr'};})) { }
198 199 0 unless utf8::is_utf8(${$$lex{'bufr'};})
214 0 1075 $FH_SLURP ? :
226 878 197 unless $_[0]->eob
227 0 197 if (defined $_[0]{'fh'})
232 0 0 defined $_[0]{'buf'} ? :
242 2 0 defined $_[0]{'yytext'} ? :
246 2 0 defined $_[0]{'yytype'} ? :
257 0 0 defined $_[0]{'yytext'} ? :
280 0 0 defined $lex->{'fh'} ? :
0 0 defined $lex->{'yytext'} ? :
319 1137 104 if ($lex->{'state'} eq 'INITIAL' or $lex->{'state'} eq 'Q_MATCHID') { }
58 46 elsif ($lex->{'state'} eq 'Q_CORPORA') { }
38 8 elsif ($lex->{'state'} eq 'Q_COMMENT') { }
2 6 elsif ($lex->{'state'} eq 'Q_DATE') { }
2 4 elsif ($lex->{'state'} eq 'Q_REGREP') { }
0 4 elsif ($lex->{'state'} eq 'Q_REGOPT') { }
4 0 elsif ($lex->{'state'} eq 'Q_XPIPE') { }
322 18 1119 if ($$bufr =~ /\G\z/) { }
14 1105 elsif ($$bufr =~ /\G\#:[^\n]*/ps) { }
19 1086 elsif ($$bufr =~ /\G\#\[/p) { }
21 1065 elsif ($$bufr =~ /\G\&\&/p) { }
2 1063 elsif ($$bufr =~ /\G\|\|/p) { }
0 1063 elsif ($$bufr =~ /\Gnear/ip) { }
2 1061 elsif ($$bufr =~ /\G(?:\!=|\&\!=|\&=\s*\!|\!with|with(?:out|\s*\!))/ip) { }
2 1059 elsif ($$bufr =~ /\G(?:\|=|withor|orwith|wor)/ip) { }
2 1057 elsif ($$bufr =~ /\G(?:\&=|with)/ip) { }
28 1029 elsif ($$bufr =~ /\Gcount/ip) { }
0 1029 elsif ($$bufr =~ /\Gkeys/ip) { }
0 1029 elsif ($$bufr =~ /\G(?:file|doc)_?id/ip) { }
2 1027 elsif ($$bufr =~ /\G(?:file|doc)_?(?:name)?/ip) { }
2 1025 elsif ($$bufr =~ /\Gdate/ip) { }
17 1008 elsif ($$bufr =~ /\G\#(?:comment|cmt)/ip) { }
2 1006 elsif ($$bufr =~ /\G\#(?:(?:co?n?te?xt?|n))/ip) { }
2 1004 elsif ($$bufr =~ /\G\#(?:with)?in/ip) { }
3 1001 elsif ($$bufr =~ /\G\#(?:sep(?:arate)?|nojoin)(?:_hits)?/ip) { }
0 1001 elsif ($$bufr =~ /\G\#(?:nosep(?:arate)?|join)(?:_hits)?/ip) { }
4 997 elsif ($$bufr =~ /\G\#(?:is_|has_)?date/ip) { }
2 995 elsif ($$bufr =~ /\G\#has(?:_field)?/ip) { }
0 995 elsif ($$bufr =~ /\G\#file(?:_?)names/ip) { }
0 995 elsif ($$bufr =~ /\G\#debug_rank/ip) { }
0 995 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_rank/ip) { }
0 995 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_rank/ip) { }
0 995 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_date/ip) { }
10 985 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_date/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_size/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_size/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:is_|has_)?size/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?left/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)left/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?right/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)right/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?mid(?:dle)?/ip) { }
0 985 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)mid(?:dle)?/ip) { }
2 983 elsif ($$bufr =~ /\G\#(?:(?:less|asc)(?:_by)?_key)/ip) { }
0 983 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)(?:_by)?_key)/ip) { }
0 983 elsif ($$bufr =~ /\G\#(?:(?:less|asc)(?:_by)?_(?:count|val(?:ue)?))/ip) { }
2 981 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)(?:_by)?_(?:count|val(?:ue)?))/ip) { }
0 981 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?/ip) { }
0 981 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?/ip) { }
0 981 elsif ($$bufr =~ /\G\#rand(?:om)?/ip) { }
28 953 elsif ($$bufr =~ /\G\#by/ip) { }
2 951 elsif ($$bufr =~ /\G\#samp(?:le)?/ip) { }
0 951 elsif ($$bufr =~ /\G\#clim(?:it)?/ip) { }
0 951 elsif ($$bufr =~ m[\G\!/($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
0 951 elsif ($$bufr =~ m[\G\!/($DEF{'regex_text'})/]op) { }
0 951 elsif ($$bufr =~ m[\G/($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
11 940 elsif ($$bufr =~ m[\G/($DEF{'regex_text'})/]op) { }
2 938 elsif ($$bufr =~ m[\Gs/($DEF{'regex_text'})/]op) { }
2 936 elsif ($$bufr =~ /\G#=/p) { }
0 936 elsif ($$bufr =~ /\G#
0 936 elsif ($$bufr =~ /\G#>/p) { }
0 936 elsif ($$bufr =~ /\G\$\./p) { }
0 936 elsif ($$bufr =~ /\G\:\{/p) { }
4 932 elsif ($$bufr =~ /\G\@\{/p) { }
0 932 elsif ($$bufr =~ /\G\*\{/p) { }
0 932 elsif ($$bufr =~ /\G\}\*/p) { }
74 858 elsif ($$bufr =~ m[\G[!.,;=\@%^#~/]]p) { }
164 694 elsif ($$bufr =~ /\G[\[\]{}()<>]/p) { }
4 690 elsif ($$bufr =~ /\G\"/p) { }
26 664 elsif ($$bufr =~ /\G\:/p) { }
0 664 elsif ($$bufr =~ /\G\*\'($DEF{'sq_text'})\'\*/op) { }
2 662 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'\*/op) { }
0 662 elsif ($$bufr =~ /\G\*\'($DEF{'sq_text'})\'/op) { }
0 662 elsif ($$bufr =~ /\G\*($DEF{'symbol_text'})\*/op) { }
2 660 elsif ($$bufr =~ /\G($DEF{'symbol_text'})\*/op) { }
0 660 elsif ($$bufr =~ /\G\*($DEF{'symbol_text'})/op) { }
24 636 elsif ($$bufr =~ /\G\$($DEF{'index_name'})/op) { }
0 636 elsif ($$bufr =~ /\G\$'($DEF{'index_name'})'/op) { }
0 636 elsif ($$bufr =~ /m\G\$/p) { }
0 636 elsif ($$bufr =~ /\G\*/p) { }
4 632 elsif ($$bufr =~ /\G\|/p) { }
39 593 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'/op) { }
269 324 elsif ($lex->{'state'} eq 'INITIAL' and $$bufr =~ /\G$DEF{'symbol_text'}/op) { }
14 310 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G[\+\-]?[0-9]+(?=$DEF{'int_boundary'})/op) { }
26 284 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G[\+\-]?[0-9]+\z/p) { }
0 284 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G$DEF{'date_bare'}(?=$DEF{'int_boundary'})/op) { }
0 284 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G$DEF{'date_bare'}\z/op) { }
284 0 elsif ($$bufr =~ /\G\s+/p) { }
0 0 elsif ($$bufr =~ /\G./p) { }
425 10 29 if ($text =~ /^[\+\-]?[0-9]+\z/) { }
6 23 elsif ($text =~ /^[0-9-]+\z/) { }
433 36 233 if ($text =~ /^[\+\-]?[0-9]+\z/) { }
6 227 elsif ($text =~ /^[0-9-]+\z/) { }
449 868 269 unless defined $match
453 22 36 if ($$bufr =~ /\G$DEF{'corpus_text'}/p) { }
18 18 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'/op) { }
16 2 elsif ($$bufr =~ /\G\,/p) { }
0 2 elsif ($$bufr =~ /\G\s+/p) { }
463 19 19 if ($$bufr =~ /\G\]/p) { }
19 0 elsif ($$bufr =~ /\G$DEF{'comment_text'}/ps) { }
477 0 2 if ($$bufr =~ /^\s+/) { }
0 2 elsif ($$bufr =~ m[^/]) { }
485 0 2 if ($$bufr =~ m[\G($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
2 0 elsif ($$bufr =~ m[\G($DEF{'regex_text'})/]op) { }
492 0 0 if ($$bufr =~ /\G$DEF{'regex_modifier'}+/op) { }
500 0 4 if ($$bufr =~ /\G\s+/p) { }
0 4 elsif ($$bufr =~ /\G\-/p) { }
0 4 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'/op) { }
4 0 elsif ($$bufr =~ /\G$DEF{'symbol_text'}/op) { }
513 872 369 unless defined $text
514 1219 22 if defined $match
517 0 1241 unless defined $type
519 363 878 if $type eq '__SKIP__'
520 18 860 if $type eq '__EOF__'
544 0 0 defined $lex->{'state'} ? :
0 0 defined $type ? :
0 0 defined $text ? :
548 0 0 unless (defined $type)
552 0 0 if ($type eq '__ERROR__')
556 0 0 if $type eq '__EOF__'