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'}) { } |