Branch Coverage

blib/lib/DDC/PP/yyqlexer.pm
Criterion Covered Total %
branch 186 290 64.1


line true false branch
143 0 211 if $which eq 'fh'
144 0 211 if $which eq 'file'
151 0 0 if ref $file
152 0 0 unless my $fh = 'IO::File'->new("<$file")
154 0 0 if $lex->{'utf8'}
164 0 0 if ($FH_SLURP)
178 0 0 unless defined $lex->{'src'}
187 211 0 if (ref $str) { }
189 211 0 unless defined $lex->{'src'}
192 0 0 unless defined $lex->{'src'}
198 211 0 if ($lex->{'utf8'} and not utf8::is_utf8(${$$lex{'bufr'};})) { }
0 0 elsif (not $lex->{'utf8'} and utf8::is_utf8(${$$lex{'bufr'};})) { }
200 211 0 unless utf8::is_utf8(${$$lex{'bufr'};})
216 0 1151 $FH_SLURP ? :
228 942 209 unless $_[0]->eob
229 0 209 if (defined $_[0]{'fh'})
234 0 0 defined $_[0]{'buf'} ? :
244 2 0 defined $_[0]{'yytext'} ? :
248 2 0 defined $_[0]{'yytype'} ? :
259 0 0 defined $_[0]{'yytext'} ? :
282 0 0 defined $lex->{'fh'} ? :
0 0 defined $lex->{'yytext'} ? :
321 1213 132 if ($lex->{'state'} eq 'INITIAL' or $lex->{'state'} eq 'Q_MATCHID') { }
86 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') { }
324 26 1187 if ($$bufr =~ /\G\z/) { }
22 1165 elsif ($$bufr =~ /\G\#:[^\n]*/ps) { }
19 1146 elsif ($$bufr =~ /\G\#\[/p) { }
21 1125 elsif ($$bufr =~ /\G\&\&/p) { }
2 1123 elsif ($$bufr =~ /\G\|\|/p) { }
0 1123 elsif ($$bufr =~ /\Gnear/ip) { }
2 1121 elsif ($$bufr =~ /\G(?:\!=|\&\!=|\&=\s*\!|\!with|with(?:out|\s*\!))/ip) { }
2 1119 elsif ($$bufr =~ /\G(?:\|=|withor|orwith|wor)/ip) { }
2 1117 elsif ($$bufr =~ /\G(?:\&=|with)/ip) { }
28 1089 elsif ($$bufr =~ /\Gcount/ip) { }
0 1089 elsif ($$bufr =~ /\Gkeys/ip) { }
0 1089 elsif ($$bufr =~ /\G(?:file|doc)_?id/ip) { }
2 1087 elsif ($$bufr =~ /\G(?:file|doc)_?(?:name)?/ip) { }
2 1085 elsif ($$bufr =~ /\Gdate/ip) { }
17 1068 elsif ($$bufr =~ /\G\#(?:comment|cmt)/ip) { }
2 1066 elsif ($$bufr =~ /\G\#(?:(?:co?n?te?xt?|n))/ip) { }
2 1064 elsif ($$bufr =~ /\G\#(?:with)?in/ip) { }
3 1061 elsif ($$bufr =~ /\G\#(?:sep(?:arate)?|nojoin)(?:_hits)?/ip) { }
0 1061 elsif ($$bufr =~ /\G\#(?:nosep(?:arate)?|join)(?:_hits)?/ip) { }
4 1057 elsif ($$bufr =~ /\G\#(?:is_|has_)?date/ip) { }
2 1055 elsif ($$bufr =~ /\G\#has(?:_field)?/ip) { }
0 1055 elsif ($$bufr =~ /\G\#file(?:_?)names/ip) { }
0 1055 elsif ($$bufr =~ /\G\#debug_rank/ip) { }
0 1055 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_rank/ip) { }
0 1055 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_rank/ip) { }
0 1055 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_date/ip) { }
10 1045 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_date/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?_size/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?_size/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:is_|has_)?size/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?left/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)left/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?right/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)right/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:less|asc)_(?:by_)?)?mid(?:dle)?/ip) { }
0 1045 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)_(?:by_)?)mid(?:dle)?/ip) { }
2 1043 elsif ($$bufr =~ /\G\#(?:(?:less|asc)(?:_by)?_key)/ip) { }
0 1043 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)(?:_by)?_key)/ip) { }
0 1043 elsif ($$bufr =~ /\G\#(?:(?:less|asc)(?:_by)?_(?:count|val(?:ue)?))/ip) { }
2 1041 elsif ($$bufr =~ /\G\#(?:(?:greater|de?sc)(?:_by)?_(?:count|val(?:ue)?))/ip) { }
0 1041 elsif ($$bufr =~ /\G\#(?:less|asc)(?:_by)?/ip) { }
0 1041 elsif ($$bufr =~ /\G\#(?:greater|de?sc)(?:_by)?/ip) { }
4 1037 elsif ($$bufr =~ /\G\#prune(?:_less|_asc)?(?:_by)?/ip) { }
0 1037 elsif ($$bufr =~ /\G\#prune(?:_greater|_de?sc)(?:_by)?/ip) { }
0 1037 elsif ($$bufr =~ /\G\#rand(?:om)?/ip) { }
28 1009 elsif ($$bufr =~ /\G\#by/ip) { }
2 1007 elsif ($$bufr =~ /\G\#samp(?:le)?/ip) { }
0 1007 elsif ($$bufr =~ /\G\#clim(?:it)?/ip) { }
0 1007 elsif ($$bufr =~ m[\G\!/($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
0 1007 elsif ($$bufr =~ m[\G\!/($DEF{'regex_text'})/]op) { }
0 1007 elsif ($$bufr =~ m[\G/($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
11 996 elsif ($$bufr =~ m[\G/($DEF{'regex_text'})/]op) { }
2 994 elsif ($$bufr =~ m[\Gs/($DEF{'regex_text'})/]op) { }
2 992 elsif ($$bufr =~ /\G#=/p) { }
0 992 elsif ($$bufr =~ /\G#
0 992 elsif ($$bufr =~ /\G#>/p) { }
0 992 elsif ($$bufr =~ /\G\$\./p) { }
0 992 elsif ($$bufr =~ /\G\:\{/p) { }
4 988 elsif ($$bufr =~ /\G\@\{/p) { }
0 988 elsif ($$bufr =~ /\G\*\{/p) { }
0 988 elsif ($$bufr =~ /\G\}\*/p) { }
78 910 elsif ($$bufr =~ m[\G[!.,;=\@%^#~/]]p) { }
172 738 elsif ($$bufr =~ /\G[\[\]{}()<>]/p) { }
4 734 elsif ($$bufr =~ /\G\"/p) { }
34 700 elsif ($$bufr =~ /\G\:/p) { }
0 700 elsif ($$bufr =~ /\G\*\'($DEF{'sq_text'})\'\*/op) { }
2 698 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'\*/op) { }
0 698 elsif ($$bufr =~ /\G\*\'($DEF{'sq_text'})\'/op) { }
0 698 elsif ($$bufr =~ /\G\*($DEF{'symbol_text'})\*/op) { }
2 696 elsif ($$bufr =~ /\G($DEF{'symbol_text'})\*/op) { }
0 696 elsif ($$bufr =~ /\G\*($DEF{'symbol_text'})/op) { }
24 672 elsif ($$bufr =~ /\G\$($DEF{'index_name'})/op) { }
0 672 elsif ($$bufr =~ /\G\$'($DEF{'index_name'})'/op) { }
0 672 elsif ($$bufr =~ /m\G\$/p) { }
0 672 elsif ($$bufr =~ /\G\*/p) { }
4 668 elsif ($$bufr =~ /\G\|/p) { }
43 625 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'/op) { }
285 340 elsif ($lex->{'state'} eq 'INITIAL' and $$bufr =~ /\G$DEF{'symbol_text'}/op) { }
14 326 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G[\+\-]?[0-9]+(?=$DEF{'int_boundary'})/op) { }
26 300 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G[\+\-]?[0-9]+\z/p) { }
0 300 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G$DEF{'date_bare'}(?=$DEF{'int_boundary'})/op) { }
0 300 elsif ($lex->{'state'} ne 'INITIAL' and $$bufr =~ /\G$DEF{'date_bare'}\z/op) { }
300 0 elsif ($$bufr =~ /\G\s+/p) { }
0 0 elsif ($$bufr =~ /\G./p) { }
429 10 33 if ($text =~ /^[\+\-]?[0-9]+\z/) { }
6 27 elsif ($text =~ /^[0-9-]+\z/) { }
437 40 245 if ($text =~ /^[\+\-]?[0-9]+\z/) { }
6 239 elsif ($text =~ /^[0-9-]+\z/) { }
453 928 285 unless defined $match
457 28 58 if ($$bufr =~ /\G$DEF{'corpus_text'}/p) { }
22 36 elsif ($$bufr =~ /\G\'($DEF{'sq_text'})\'/op) { }
18 18 elsif ($$bufr =~ /\G\,/p) { }
8 10 elsif ($$bufr =~ /\G\s+/p) { }
464 68 18 if $type ne '__SKIP__'
468 19 19 if ($$bufr =~ /\G\]/p) { }
19 0 elsif ($$bufr =~ /\G$DEF{'comment_text'}/ps) { }
482 0 2 if ($$bufr =~ /^\s+/) { }
0 2 elsif ($$bufr =~ m[^/]) { }
490 0 2 if ($$bufr =~ m[\G($DEF{'regex_text'})/(?=$DEF{'regex_modifier'})]op) { }
2 0 elsif ($$bufr =~ m[\G($DEF{'regex_text'})/]op) { }
497 0 0 if ($$bufr =~ /\G$DEF{'regex_modifier'}+/op) { }
505 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) { }
518 952 393 unless defined $text
519 1307 38 if defined $match
522 0 1345 unless defined $type
524 403 942 if $type eq '__SKIP__'
525 26 916 if $type eq '__EOF__'
549 0 0 defined $lex->{'state'} ? :
0 0 defined $type ? :
0 0 defined $text ? :
553 0 0 unless (defined $type)
557 0 0 if ($type eq '__ERROR__')
561 0 0 if $type eq '__EOF__'