| line |
true |
false |
branch |
|
29
|
0 |
0 |
if ($sub eq 'XML::Parser' or $sub eq 'XML::Parsepp') { } |
|
30
|
0 |
0 |
if (defined $act_module) |
|
40
|
0 |
1 |
if (defined $act_module) |
|
50
|
0 |
0 |
if ($mod eq 'XML::Parser') { } |
|
|
0 |
0 |
elsif ($mod eq 'XML::Parsepp') { } |
|
77
|
0 |
0 |
if defined $_[1] |
|
79
|
0 |
0 |
if (defined $opt{'mode'}) |
|
81
|
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') { } |
|
89
|
0 |
0 |
if (defined $opt{'filter'}) { } |
|
90
|
0 |
0 |
unless ($opt{'filter'} eq $flt) |
|
99
|
0 |
0 |
unless defined $opt{'strip'} |
|
100
|
0 |
0 |
unless defined $opt{'filter'} |
|
101
|
0 |
0 |
unless defined $opt{'parse_pi'} |
|
102
|
0 |
0 |
unless defined $opt{'parse_ct'} |
|
104
|
0 |
0 |
unless ($opt{'filter'} == 2 or $opt{'filter'} == 3 or $opt{'filter'} == 4 or $opt{'filter'} == 5) |
|
110
|
0 |
0 |
if (defined $opt{'dupatt'} and $opt{'dupatt'} ne '') |
|
111
|
0 |
0 |
unless ($use_module eq 'XML::Parsepp') |
|
117
|
0 |
0 |
unless my $XmlParser = $use_module->new(@parser_opt) |
|
141
|
0 |
0 |
if (ref $_[0] eq 'GLOB') { } |
|
145
|
0 |
0 |
if ($_[0] =~ /\A https?:/msx) { } |
|
146
|
0 |
0 |
unless $fh = 'Acme::HTTP'->new($_[0]) |
|
150
|
0 |
0 |
unless open $fh, '<', $_[0] |
|
186
|
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'}) |
|
205
|
0 |
0 |
if (exists $opt{'debug'}) |
|
214
|
0 |
0 |
defined $opt{'sepchar'} ? : |
|
216
|
0 |
0 |
ref $opt{'using'} ? : |
|
|
0 |
0 |
!defined($opt{'using'}) ? : |
|
233
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
237
|
0 |
0 |
if (ref $$object{'branch'} eq 'ARRAY') |
|
252
|
0 |
0 |
if ($ele =~ /\[ \@ ([^\[\]=\s]+) = ['"] ([^'"]*) ['"] \]/msx) |
|
269
|
0 |
0 |
if ($ele =~ /\[ \@ ([^\[\]=\s]+) = ['"] ([^'"]*) ['"] \]/msx) |
|
274
|
0 |
0 |
if ($$object{'root'} =~ m[\A // ([^/] .*) \z]msx or $$object{'root'} =~ m[\A ([^/] .*) \z]msx) { } |
|
337
|
0 |
0 |
if ($_[0]{'filter'} == 5) { } |
|
338
|
0 |
0 |
ref $_[0]{'rvalue'} eq 'ARRAY' ? : |
|
374
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
376
|
0 |
0 |
if ($res) |
|
384
|
0 |
0 |
unless (defined $token) |
|
388
|
0 |
0 |
if ($token->found_start_tag) |
|
394
|
0 |
0 |
if ($token->found_end_tag) |
|
406
|
0 |
0 |
if ($token->found_text) { } |
|
|
0 |
0 |
elsif ($token->found_attr) { } |
|
412
|
0 |
0 |
if (@{$token->extract_proc;} == 2) |
|
417
|
0 |
0 |
$prv_SPECD eq 'D' ? : |
|
418
|
0 |
0 |
$prv_SPECD eq 'S' ? : |
|
419
|
0 |
0 |
$prv_SPECD eq 'P' ? : |
|
420
|
0 |
0 |
$prv_SPECD eq 'C' ? : |
|
421
|
0 |
0 |
$nxt_SPECD eq 'E' ? : |
|
433
|
0 |
0 |
@{$$self{'plist'};} ? : |
|
478
|
0 |
0 |
if ($$self{'filter'} == 4 or $$self{'filter'} == 5) { } |
|
479
|
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'}) { } |
|
492
|
0 |
0 |
$$self{'type'} eq 'T' ? : |
|
498
|
0 |
0 |
$$self{'is_text'} || $$self{'is_attr'} ? : |
|
501
|
0 |
0 |
if ($$self{'filter'} == 5) |
|
511
|
0 |
0 |
if (defined $$param{'root'}) { } |
|
|
0 |
0 |
elsif (defined $$param{'qrfix'}) { } |
|
|
0 |
0 |
elsif (defined $$param{'qr1'}) { } |
|
518
|
0 |
0 |
if ($$self{'path'} =~ /$$param{'qr1'}/) |
|
525
|
0 |
0 |
if (defined $root) |
|
526
|
0 |
0 |
if ($root eq '/') { } |
|
527
|
0 |
0 |
if (@{$$self{'plist'};} == 1) { } |
|
|
0 |
0 |
elsif (@{$$self{'plist'};} > 1) { } |
|
537
|
0 |
0 |
if ($$self{'path'} eq $root) { } |
|
|
0 |
0 |
elsif (substr($$self{'path'}, 0, length($root) + 1) eq $root . '/') { } |
|
548
|
0 |
0 |
unless defined $twig |
|
567
|
0 |
0 |
unless ($e) |
|
575
|
0 |
0 |
unless (defined $v) |
|
581
|
0 |
0 |
unless ($v eq $val) |
|
590
|
0 |
0 |
if $block |
|
594
|
0 |
0 |
if ($root eq '/') { } |
|
601
|
0 |
0 |
if (ref $$param{'branch'}) { } |
|
|
0 |
0 |
elsif ($$param{'branch'} eq '+') { } |
|
|
0 |
0 |
elsif ($$param{'branch'} eq '*') { } |
|
602
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
606
|
0 |
0 |
if ($$self{'is_value'}) |
|
608
|
0 |
0 |
if ($$param{'branch'}[$i] eq $twig) |
|
627
|
0 |
0 |
unless ($e) |
|
635
|
0 |
0 |
unless (defined $v) |
|
641
|
0 |
0 |
unless ($v eq $val) |
|
650
|
0 |
0 |
unless ($block) |
|
652
|
0 |
0 |
defined $$ref ? : |
|
659
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
665
|
0 |
0 |
if ($border and $$self{'is_start'}) |
|
670
|
0 |
0 |
if ($$self{'is_decl'}) |
|
682
|
0 |
0 |
if ($$self{'is_start'}) |
|
694
|
0 |
0 |
if ($$self{'is_proc'}) |
|
705
|
0 |
0 |
if ($$self{'is_text'}) |
|
707
|
0 |
0 |
if ($tval ne '') |
|
714
|
0 |
0 |
if ($$self{'is_comment'}) |
|
721
|
0 |
0 |
if ($$self{'is_end'}) |
|
728
|
0 |
0 |
if ($border and $$self{'is_end'}) |
|
740
|
0 |
0 |
if ($check eq $$self{'path'}) |
|
747
|
0 |
0 |
if ($check . '/' eq substr($$self{'path'}, 0, length($check) + 1)) |
|
757
|
0 |
0 |
if (@{$$self{'using'};} and $$self{'prefix'} eq '') |
|
773
|
0 |
0 |
if (ref $self->NB_fh eq 'Acme::HTTP') { } |
|
775
|
0 |
0 |
unless $ct |
|
782
|
0 |
0 |
if $buf eq '' |
|
802
|
0 |
0 |
unless (@{$self->NB_data;}) |
|
812
|
0 |
0 |
unless $$ExpatNB{'XR_ParseInst'} |
|
815
|
0 |
0 |
defined $ver ? : |
|
|
0 |
0 |
defined $encoding ? : |
|
|
0 |
0 |
$standalone ? : |
|
|
0 |
0 |
defined $standalone ? : |
|
824
|
0 |
0 |
unless $$ExpatNB{'XR_ParseInst'} |
|
833
|
0 |
0 |
unless $$ExpatNB{'XR_ParseComm'} |
|
868
|
0 |
0 |
if ($$ExpatNB{'XR_Strip'}) |
|
877
|
0 |
0 |
unless ($$ExpatNB{'XR_Prv_SPECD'} eq '') |
|
884
|
0 |
0 |
if ($$ExpatNB{'XR_Split_up'}) { } |
|
885
|
0 |
0 |
if ($prev_SPECD ne 'E') |
|
891
|
0 |
0 |
if ($$ExpatNB{'XR_Emit_attr'}) |
|
900
|
0 |
0 |
unless ($text eq '') |
|
905
|
0 |
0 |
if ($next_SPECD eq 'E') |
|
915
|
0 |
0 |
if ($$ExpatNB{'XR_Emit_attr'}) |
|
966
|
0 |
0 |
if ($$self{'ExpatNB'}) |
|
978
|
0 |
0 |
if (defined $$r{'dupatt'}) { } |