| line |
true |
false |
branch |
|
61
|
90 |
10 |
if (ch=='!' || ch=='/' || ch=='?' || isalnum(ch)){ |
|
|
84 |
6 |
if (ch=='!' || ch=='/' || ch=='?' || isalnum(ch)){ |
|
|
84 |
0 |
if (ch=='!' || ch=='/' || ch=='?' || isalnum(ch)){ |
|
|
68 |
16 |
if (ch=='!' || ch=='/' || ch=='?' || isalnum(ch)){ |
|
78
|
0 |
3 |
if (!SvPOKp(filename)){ |
|
83
|
3 |
0 |
str=SvPV(filename,i); |
|
93
|
0 |
3 |
if (RETVAL->fd == NULL){ |
|
122
|
0 |
4 |
if (! self->fileline){ |
|
132
|
72 |
2 |
while(state != 3 && (chn=PerlIO_getc(self->fd))!=EOF ){ |
|
|
70 |
2 |
while(state != 3 && (chn=PerlIO_getc(self->fd))!=EOF ){ |
|
134
|
3 |
67 |
if (ch==0){ /* read one more character ahead so we have always 2 */ |
|
140
|
0 |
67 |
if (bufpos > TAGREADER_MAX_TAGLEN){ |
|
141
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
149
|
3 |
64 |
if (ch=='\n') { |
|
153
|
64 |
3 |
if (ch=='\n'|| ch=='\r' || ch=='\t' || ch==' ') { |
|
|
64 |
0 |
if (ch=='\n'|| ch=='\r' || ch=='\t' || ch==' ') { |
|
|
63 |
1 |
if (ch=='\n'|| ch=='\r' || ch=='\t' || ch==' ') { |
|
|
7 |
56 |
if (ch=='\n'|| ch=='\r' || ch=='\t' || ch==' ') { |
|
155
|
10 |
1 |
if (chn=='\n'|| chn=='\r' || chn=='\t' || chn==' '){ |
|
|
10 |
0 |
if (chn=='\n'|| chn=='\r' || chn=='\t' || chn==' '){ |
|
|
9 |
1 |
if (chn=='\n'|| chn=='\r' || chn=='\t' || chn==' '){ |
|
|
1 |
8 |
if (chn=='\n'|| chn=='\r' || chn=='\t' || chn==' '){ |
|
165
|
4 |
7 |
if (ch=='<') { |
|
166
|
3 |
1 |
if (is_start_of_tag(chn)) { |
|
175
|
1 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
1 |
if (SvTRUE(showerrors)){ |
|
|
0 |
1 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
1 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
1 |
0 |
if (SvTRUE(showerrors)){ |
|
|
1 |
0 |
if (SvTRUE(showerrors)){ |
|
|
1 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
1 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
1 |
if (SvTRUE(showerrors)){ |
|
184
|
1 |
37 |
if (ch=='!' && chn=='-' && self->buffer[bufpos-2]=='<'){ |
|
|
1 |
0 |
if (ch=='!' && chn=='-' && self->buffer[bufpos-2]=='<'){ |
|
|
1 |
0 |
if (ch=='!' && chn=='-' && self->buffer[bufpos-2]=='<'){ |
|
188
|
2 |
36 |
if (ch=='>'){ |
|
193
|
0 |
38 |
if(ch=='<'){ |
|
195
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
208
|
8 |
6 |
if(ch=='-' && chn=='>'){ |
|
|
1 |
7 |
if(ch=='-' && chn=='>'){ |
|
231
|
2 |
2 |
if (chn!=EOF && PerlIO_ungetc(self->fd,chn)==EOF){ |
|
|
0 |
2 |
if (chn!=EOF && PerlIO_ungetc(self->fd,chn)==EOF){ |
|
236
|
2 |
2 |
if (state == 3){ |
|
238
|
2 |
0 |
if(GIMME == G_ARRAY){ |
|
|
1 |
1 |
if(GIMME == G_ARRAY){ |
|
239
|
0 |
1 |
EXTEND(SP,3); |
|
245
|
0 |
1 |
EXTEND(SP,1); |
|
269
|
0 |
27 |
if (! self->fileline){ |
|
282
|
217 |
23 |
while(state != 3 && (chn=PerlIO_getc(self->fd))!=EOF ){ |
|
|
213 |
4 |
while(state != 3 && (chn=PerlIO_getc(self->fd))!=EOF ){ |
|
284
|
25 |
188 |
if (ch==0){ /* read one more character ahead so we have always 2 */ |
|
288
|
8 |
180 |
if (ch=='\n') { |
|
298
|
14 |
9 |
if (ch=='<'){ |
|
299
|
14 |
0 |
if ( is_start_of_tag(chn)) { |
|
303
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
314
|
71 |
51 |
if (typeposdone==0 && typepos < TAGREADER_TAGTYPELEN -1 ){ |
|
|
71 |
0 |
if (typeposdone==0 && typepos < TAGREADER_TAGTYPELEN -1 ){ |
|
315
|
58 |
13 |
if (is_start_of_tag(ch)){ |
|
324
|
0 |
122 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
|
0 |
0 |
if (ch=='<' && SvTRUE(showerrors)) { |
|
327
|
122 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
122 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
122 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
8 |
114 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
8 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
8 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
8 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
8 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
114 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
114 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
41 |
73 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
41 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
0 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
81 |
41 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
|
0 |
81 |
if (SvTRUE(showerrors) && bufpos > TAGREADER_MAX_TAGLEN){ |
|
331
|
13 |
109 |
if (ch=='>') { |
|
335
|
3 |
119 |
if (ch=='!' && chn=='-' && bufpos > 1 && self->buffer[bufpos-2]=='<'){ |
|
|
1 |
2 |
if (ch=='!' && chn=='-' && bufpos > 1 && self->buffer[bufpos-2]=='<'){ |
|
|
1 |
0 |
if (ch=='!' && chn=='-' && bufpos > 1 && self->buffer[bufpos-2]=='<'){ |
|
|
1 |
0 |
if (ch=='!' && chn=='-' && bufpos > 1 && self->buffer[bufpos-2]=='<'){ |
|
347
|
0 |
27 |
if (ch=='>') { |
|
348
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
352
|
11 |
16 |
if (ch=='<'){ |
|
353
|
9 |
2 |
if ( is_start_of_tag(chn)) { /* first char */ |
|
357
|
0 |
9 |
if (PerlIO_ungetc(self->fd,chn)==EOF){ |
|
366
|
2 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
2 |
if (SvTRUE(showerrors)){ |
|
|
0 |
2 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
2 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
2 |
0 |
if (SvTRUE(showerrors)){ |
|
|
2 |
0 |
if (SvTRUE(showerrors)){ |
|
|
2 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
2 |
if (SvTRUE(showerrors)){ |
|
|
0 |
0 |
if (SvTRUE(showerrors)){ |
|
|
0 |
2 |
if (SvTRUE(showerrors)){ |
|
376
|
9 |
6 |
if(ch=='-' && chn=='>'){ |
|
|
1 |
8 |
if(ch=='-' && chn=='>'){ |
|
394
|
0 |
188 |
if (bufpos > self->currbuflen - 3){ |
|
400
|
4 |
23 |
if (chn==EOF){ |
|
402
|
2 |
2 |
if (ch) { |
|
408
|
0 |
23 |
if (PerlIO_ungetc(self->fd,chn)==EOF){ |
|
417
|
25 |
2 |
if (bufpos>0){ |
|
419
|
25 |
0 |
if(GIMME == G_ARRAY){ |
|
|
24 |
1 |
if(GIMME == G_ARRAY){ |
|
420
|
0 |
24 |
EXTEND(SP,4); |
|
427
|
0 |
1 |
EXTEND(SP,1); |