| line |
true |
false |
branch |
|
30
|
0 |
0 |
if ($sub eq 'XML::Parser' or $sub eq 'XML::Parsepp') { } |
|
31
|
0 |
0 |
if (defined $act_module) |
|
41
|
0 |
1 |
if (defined $act_module) |
|
51
|
0 |
0 |
if ($mod eq 'XML::Parser') { } |
|
|
0 |
0 |
elsif ($mod eq 'XML::Parsepp') { } |
|
78
|
0 |
0 |
if defined $_[1] |
|
80
|
0 |
0 |
if (defined $opt{'mode'}) |
|
82
|
0 |
0 |
if ($opt{'mode'} eq 'attr-bef-start') { } |
|
|
0 |
0 |
elsif ($opt{'mode'} eq 'attr-in-hash') { } |
|
|
0 |
0 |
elsif ($opt{'mode'} eq 'pyx') { } |
|
|
0 |
0 |
elsif ($opt{'mode'} eq 'branches') { } |
|
90
|
0 |
0 |
if (defined $opt{'filter'}) { } |
|
91
|
0 |
0 |
unless ($opt{'filter'} eq $flt) |
|
100
|
0 |
0 |
unless defined $opt{'strip'} |
|
101
|
0 |
0 |
unless defined $opt{'filter'} |
|
102
|
0 |
0 |
unless defined $opt{'parse_pi'} |
|
103
|
0 |
0 |
unless defined $opt{'parse_ct'} |
|
105
|
0 |
0 |
unless ($opt{'filter'} == 2 or $opt{'filter'} == 3 or $opt{'filter'} == 4 or $opt{'filter'} == 5) |
|
111
|
0 |
0 |
if (defined $opt{'dupatt'} and $opt{'dupatt'} ne '') |
|
112
|
0 |
0 |
unless ($use_module eq 'XML::Parsepp') |
|
118
|
0 |
0 |
unless my $XmlParser = $use_module->new(@parser_opt) |
|
142
|
0 |
0 |
if (ref $_[0] eq 'GLOB') { } |
|
146
|
0 |
0 |
if ($_[0] =~ /\A https?:/msx) { } |
|
147
|
0 |
0 |
unless $fh = 'Acme::HTTP'->new($_[0]) |
|
151
|
0 |
0 |
unless open $fh, '<', $_[0] |
|
187
|
0 |
0 |
$opt{'filter'} == 3 ? : |
|
|
0 |
0 |
$opt{'filter'} == 4 || $opt{'filter'} == 5 ? : |
|
|
0 |
0 |
unless $$self{'ExpatNB'} = $XmlParser->parse_start('XR_Data', [], 'XR_Text', '', 'XR_Comment', '', 'XR_fh', $fh, 'XR_Att', [], 'XR_ProcInst', [], 'XR_Decl', {}, 'XR_Prv_SPECD', '', 'XR_Emit_attr', $opt{'filter'} == 3 ? 0 : 1, 'XR_Split_up', $opt{'filter'} == 4 || $opt{'filter'} == 5 ? 1 : 0, 'XR_Strip', $opt{'strip'}, 'XR_ParseInst', $opt{'parse_pi'}, 'XR_ParseComm', $opt{'parse_ct'}) |
|
206
|
0 |
0 |
if (exists $opt{'debug'}) |
|
215
|
0 |
0 |
defined $opt{'sepchar'} ? : |
|
217
|
0 |
0 |
ref $opt{'using'} ? : |
|
|
0 |
0 |
!defined($opt{'using'}) ? : |
|
234
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
238
|
0 |
0 |
if (ref $$object{'branch'} eq 'ARRAY') |
|
253
|
0 |
0 |
if ($ele =~ /\[ \@ ([^\[\]=\s]+) = ['"] ([^'"]*) ['"] \]/msx) |
|
270
|
0 |
0 |
if ($ele =~ /\[ \@ ([^\[\]=\s]+) = ['"] ([^'"]*) ['"] \]/msx) |
|
275
|
0 |
0 |
if ($$object{'root'} =~ m[\A // ([^/] .*) \z]msx or $$object{'root'} =~ m[\A ([^/] .*) \z]msx) { } |
|
338
|
0 |
0 |
if ($_[0]{'filter'} == 5) { } |
|
339
|
0 |
0 |
ref $_[0]{'rvalue'} eq 'ARRAY' ? : |
|
375
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
377
|
0 |
0 |
if ($res) |
|
385
|
0 |
0 |
unless (defined $token) |
|
389
|
0 |
0 |
if ($token->found_start_tag) |
|
395
|
0 |
0 |
if ($token->found_end_tag) |
|
407
|
0 |
0 |
if ($token->found_text) { } |
|
|
0 |
0 |
elsif ($token->found_attr) { } |
|
413
|
0 |
0 |
if (@{$token->extract_proc;} == 2) |
|
418
|
0 |
0 |
$prv_SPECD eq 'D' ? : |
|
419
|
0 |
0 |
$prv_SPECD eq 'S' ? : |
|
420
|
0 |
0 |
$prv_SPECD eq 'P' ? : |
|
421
|
0 |
0 |
$prv_SPECD eq 'C' ? : |
|
422
|
0 |
0 |
$nxt_SPECD eq 'E' ? : |
|
434
|
0 |
0 |
@{$$self{'plist'};} ? : |
|
479
|
0 |
0 |
if ($$self{'filter'} == 4 or $$self{'filter'} == 5) { } |
|
480
|
0 |
0 |
if ($$self{'type'} eq '@') { } |
|
|
0 |
0 |
elsif ($$self{'is_decl'}) { } |
|
|
0 |
0 |
elsif ($$self{'is_proc'}) { } |
|
|
0 |
0 |
elsif ($$self{'is_start'}) { } |
|
|
0 |
0 |
elsif ($$self{'is_end'}) { } |
|
|
0 |
0 |
elsif ($$self{'is_comment'}) { } |
|
493
|
0 |
0 |
$$self{'type'} eq 'T' ? : |
|
499
|
0 |
0 |
$$self{'is_text'} || $$self{'is_attr'} ? : |
|
502
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
512
|
0 |
0 |
if (defined $$param{'root'}) { } |
|
|
0 |
0 |
elsif (defined $$param{'qrfix'}) { } |
|
|
0 |
0 |
elsif (defined $$param{'qr1'}) { } |
|
519
|
0 |
0 |
if ($$self{'path'} =~ /$$param{'qr1'}/) |
|
526
|
0 |
0 |
if (defined $root) |
|
527
|
0 |
0 |
if ($root eq '/') { } |
|
528
|
0 |
0 |
if (@{$$self{'plist'};} == 1) { } |
|
|
0 |
0 |
elsif (@{$$self{'plist'};} > 1) { } |
|
538
|
0 |
0 |
if ($$self{'path'} eq $root) { } |
|
|
0 |
0 |
elsif (substr($$self{'path'}, 0, length($root) + 1) eq $root . '/') { } |
|
549
|
0 |
0 |
unless defined $twig |
|
568
|
0 |
0 |
unless ($e) |
|
576
|
0 |
0 |
unless (defined $v) |
|
582
|
0 |
0 |
unless ($v eq $val) |
|
591
|
0 |
0 |
if $block |
|
595
|
0 |
0 |
if ($root eq '/') { } |
|
602
|
0 |
0 |
if (ref $$param{'branch'}) { } |
|
|
0 |
0 |
elsif ($$param{'branch'} eq '+') { } |
|
|
0 |
0 |
elsif ($$param{'branch'} eq '*') { } |
|
603
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
607
|
0 |
0 |
if ($$self{'is_value'}) |
|
609
|
0 |
0 |
if ($$param{'branch'}[$i] eq $twig) |
|
628
|
0 |
0 |
unless ($e) |
|
636
|
0 |
0 |
unless (defined $v) |
|
642
|
0 |
0 |
unless ($v eq $val) |
|
651
|
0 |
0 |
unless ($block) |
|
653
|
0 |
0 |
defined $$ref ? : |
|
660
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
666
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
671
|
0 |
0 |
if ($$self{'is_decl'}) |
|
683
|
0 |
0 |
if ($$self{'is_start'}) |
|
695
|
0 |
0 |
if ($$self{'is_proc'}) |
|
706
|
0 |
0 |
if ($$self{'is_text'}) |
|
708
|
0 |
0 |
if ($tval ne '') |
|
715
|
0 |
0 |
if ($$self{'is_comment'}) |
|
722
|
0 |
0 |
if ($$self{'is_end'}) |
|
729
|
0 |
0 |
if ($border and $$self{'is_end'}) |
|
741
|
0 |
0 |
if ($check eq $$self{'path'}) |
|
748
|
0 |
0 |
if ($check . '/' eq substr($$self{'path'}, 0, length($check) + 1)) |
|
758
|
0 |
0 |
if (@{$$self{'using'};} and $$self{'prefix'} eq '') |
|
774
|
0 |
0 |
if (ref $self->NB_fh eq 'Acme::HTTP') { } |
|
776
|
0 |
0 |
unless $ct |
|
783
|
0 |
0 |
if $buf eq '' |
|
803
|
0 |
0 |
unless (@{$self->NB_data;}) |
|
813
|
0 |
0 |
unless $$ExpatNB{'XR_ParseInst'} |
|
816
|
0 |
0 |
defined $version ? : |
|
|
0 |
0 |
defined $encoding ? : |
|
|
0 |
0 |
$standalone ? : |
|
|
0 |
0 |
defined $standalone ? : |
|
825
|
0 |
0 |
unless $$ExpatNB{'XR_ParseInst'} |
|
834
|
0 |
0 |
unless $$ExpatNB{'XR_ParseComm'} |
|
869
|
0 |
0 |
if ($$ExpatNB{'XR_Strip'}) |
|
878
|
0 |
0 |
unless ($$ExpatNB{'XR_Prv_SPECD'} eq '') |
|
885
|
0 |
0 |
if ($$ExpatNB{'XR_Split_up'}) { } |
|
886
|
0 |
0 |
if ($prev_SPECD ne 'E') |
|
892
|
0 |
0 |
if ($$ExpatNB{'XR_Emit_attr'}) |
|
901
|
0 |
0 |
unless ($text eq '') |
|
906
|
0 |
0 |
if ($next_SPECD eq 'E') |
|
916
|
0 |
0 |
if ($$ExpatNB{'XR_Emit_attr'}) |
|
967
|
0 |
0 |
if ($$self{'ExpatNB'}) |
|
979
|
0 |
0 |
if (defined $$r{'dupatt'}) { } |