| line |
true |
false |
branch |
|
131
|
0 |
0 |
if (builtin::blessed($filename) and $filename->isa("URI") and $filename->scheme eq "file") |
|
139
|
0 |
0 |
if ($filename and not builtin::blessed($filename) && $filename->isa('URI')) |
|
178
|
0 |
0 |
ref $refs ? : |
|
191
|
0 |
0 |
$refs ? : |
|
196
|
0 |
0 |
unless $refs |
|
208
|
106 |
0 |
if ($references) |
|
211
|
56 |
0 |
if ($refids) { } |
|
212
|
0 |
56 |
ref $refids ? : |
|
214
|
56 |
0 |
if ($href) { } |
|
239
|
0 |
28 |
defined $selected ? : |
|
|
0 |
28 |
if defined $selected ? $selected == 0 : $ctxt->{'_no_references'} |
|
241
|
28 |
0 |
if (defined $readas) |
|
242
|
20 |
8 |
if ($readas eq 'dom') { } |
|
|
2 |
6 |
elsif ($readas eq 'trees') { } |
|
|
6 |
0 |
elsif ($readas eq 'pml') { } |
|
|
0 |
0 |
elsif (length $readas) { } |
|
267
|
6 |
0 |
$opts ? : |
|
287
|
0 |
32 |
unless $ref_fh |
|
290
|
32 |
0 |
if ($ref_fh) { } |
|
294
|
0 |
32 |
if $@ |
|
295
|
32 |
0 |
if $ref_data and $ref_data->can("setBaseURI") |
|
302
|
10 |
22 |
if ($href ne $local_file and $remove_file) |
|
307
|
0 |
0 |
if ($href ne $local_file and $remove_file) |
|
323
|
0 |
40 |
if (ref $opts and $parser->can("set_options")) |
|
335
|
0 |
74 |
if ref $class |
|
361
|
0 |
0 |
unless defined $id and length $id |
|
365
|
0 |
0 |
if ($check_uniq) |
|
367
|
0 |
0 |
if (defined $current and $current != $object) |
|
371
|
0 |
0 |
if (ref $object) { } |
|
404
|
54 |
703 |
if (UNIVERSAL::DOES::does($node, "Treex::PML::Instance")) |
|
408
|
0 |
757 |
unless (defined $path) |
|
413
|
0 |
815 |
if $step eq "." |
|
415
|
1 |
814 |
if ($is_list or UNIVERSAL::DOES::does($val, 'Treex::PML::Alt')) { } |
|
|
0 |
814 |
elsif (UNIVERSAL::DOES::does($val, 'Treex::PML::Seq')) { } |
|
|
760 |
54 |
elsif (ref $val) { } |
|
|
0 |
54 |
elsif (defined $val) { } |
|
416
|
0 |
1 |
if ($step =~ /^\[([-+]?\d+)\]/) { } |
|
|
0 |
1 |
elsif ($strict) { } |
|
417
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
425
|
1 |
0 |
$is_list ? : |
|
|
1 |
0 |
unless $step eq ($is_list ? "LM" : "AM") |
|
428
|
0 |
0 |
if ($step =~ /^\[([-+]?\d+)\](.*)/) { } |
|
|
0 |
0 |
elsif ($step =~ /^([^\[]+)(?:\[([-+]?\d+)\])?/) { } |
|
429
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
432
|
0 |
0 |
if ($val) |
|
433
|
0 |
0 |
if (defined $2 and length $2) |
|
434
|
0 |
0 |
if $val->[0] ne $2 |
|
441
|
0 |
0 |
if ($i ne "") |
|
442
|
0 |
0 |
$i < 0 ? : |
|
|
0 |
0 |
$i > 0 ? : |
|
462
|
0 |
0 |
if (UNIVERSAL::DOES::does($node, "Treex::PML::Instance")) |
|
469
|
0 |
0 |
ref $path ? : |
|
471
|
0 |
0 |
if $dot |
|
476
|
0 |
0 |
if ($is_list or UNIVERSAL::DOES::does($val, 'Treex::PML::Alt')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::DOES::does($val, 'Treex::PML::Seq')) { } |
|
|
0 |
0 |
elsif (ref $val) { } |
|
477
|
0 |
0 |
if ($step =~ /^\[([-+]?\d+)\]/) { } |
|
478
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
if ($1 > 0) { } |
|
481
|
0 |
0 |
$is_list ? : |
|
|
0 |
0 |
unless $step eq ($is_list ? "LM" : "AM") |
|
486
|
0 |
0 |
if ($step =~ /^\[([-+]?\d+)\](.*)/) { } |
|
|
0 |
0 |
elsif ($step =~ /^([^\[]+)(?:\[([-+]?\d+)\])?/) { } |
|
487
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
490
|
0 |
0 |
$val->[0] eq $2 ? : |
|
|
0 |
0 |
defined $2 && length $2 ? : |
|
|
0 |
0 |
$val ? : |
|
498
|
0 |
0 |
if (defined $i and length $i) { } |
|
499
|
0 |
0 |
$i < 0 ? : |
|
|
0 |
0 |
if ($i > 0) { } |
|
511
|
0 |
0 |
if $redo |
|
513
|
0 |
0 |
if $dot |
|
514
|
0 |
0 |
if (UNIVERSAL::DOES::does($_, 'Treex::PML::List') or UNIVERSAL::DOES::does($_, 'Treex::PML::Alt')) { } |
|
517
|
0 |
0 |
if (UNIVERSAL::DOES::does($_, 'Treex::PML::List') or UNIVERSAL::DOES::does($_, 'Treex::PML::Alt')) { } |
|
522
|
0 |
0 |
if (UNIVERSAL::DOES::does($node, "Treex::PML::Instance")) |
|
529
|
0 |
0 |
if (UNIVERSAL::DOES::does($val, 'Treex::PML::List') or UNIVERSAL::DOES::does($val, 'Treex::PML::Alt')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::DOES::does($val, 'Treex::PML::Seq')) { } |
|
|
0 |
0 |
elsif (ref $val) { } |
|
|
0 |
0 |
elsif (defined $val) { } |
|
530
|
0 |
0 |
if ($step =~ /^\[([-+]?\d+)\]/) { } |
|
|
0 |
0 |
elsif ($strict) { } |
|
531
|
0 |
0 |
if (@steps) { } |
|
532
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
537
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
542
|
0 |
0 |
if $strict == 2 |
|
546
|
0 |
0 |
if (@steps) { } |
|
554
|
0 |
0 |
if ($step =~ /^\[([-+]?\d+)\](.*)/) { } |
|
|
0 |
0 |
elsif ($step =~ /^([^\[]+)(?:\[([-+]?\d+)\])?/) { } |
|
556
|
0 |
0 |
$i < 0 ? : |
|
|
0 |
0 |
$i > 0 ? : |
|
558
|
0 |
0 |
if (defined $el and defined $2 and length $2 and $el->[0] ne $2) |
|
560
|
0 |
0 |
if $strict == 2 |
|
564
|
0 |
0 |
if (@steps) { } |
|
567
|
0 |
0 |
if (UNIVERSAL::DOES::does($value, 'Treex::PML::Seq::Element')) { } |
|
|
0 |
0 |
elsif (ref $$val[$i - 1]) { } |
|
570
|
0 |
0 |
$i < 0 ? : |
|
|
0 |
0 |
$i > 0 ? : |
|
577
|
0 |
0 |
if $strict == 2 |
|
585
|
0 |
0 |
unless (@steps) |
|
586
|
0 |
0 |
$1 < 0 ? : |
|
|
0 |
0 |
$1 > 0 ? : |
|
588
|
0 |
0 |
if (defined $val) { } |
|
589
|
0 |
0 |
if (UNIVERSAL::DOES::does($value, 'Treex::PML::Seq::Element')) { } |
|
599
|
0 |
0 |
if $strict == 2 |
|
608
|
0 |
0 |
if (@steps) { } |
|
609
|
0 |
0 |
unless (defined $val->{$step} or $steps[0] =~ /^\[/) |
|
619
|
0 |
0 |
if $strict == 2 |
|
638
|
0 |
0 |
if (defined $m_step and length $m_step == 0) { } |
|
|
0 |
0 |
elsif ($m_step eq $step or $m_step eq '*') { } |
|
|
0 |
0 |
elsif (not $m_step =~ /^\[/) { } |
|
644
|
0 |
0 |
if (not length $s) { } |
|
|
0 |
0 |
elsif ($s eq $m_step) { } |
|
656
|
0 |
0 |
if (@p > 0 and length $p[0] == 0) |
|
664
|
0 |
0 |
if (UNIVERSAL::isa($paths, 'HASH')) { } |
|
671
|
0 |
0 |
if (UNIVERSAL::DOES::does($obj, 'Treex::PML::Instance')) { } |
|
|
0 |
0 |
elsif (exists $opts->{'type'}) { } |
|
672
|
0 |
0 |
if (exists $opts->{'type'}) { } |
|
681
|
0 |
0 |
if @match_paths |
|
686
|
0 |
0 |
$path eq '/' ? : |
|
689
|
0 |
0 |
if (defined $type) |
|
691
|
0 |
0 |
if ($dt == 11 or $dt == 12 or $dt == 13) |
|
698
|
0 |
0 |
if (@{$m->[0];} > 0) { } |
|
703
|
0 |
0 |
if (UNIVERSAL::isa($cb, "ARRAY")) |
|
709
|
0 |
0 |
if @m |
|
714
|
0 |
0 |
if ($val) |
|
716
|
0 |
0 |
if (defined $type and $dt == 7 and not UNIVERSAL::DOES::does($val, "Treex::PML::Alt")) |
|
720
|
0 |
0 |
if (UNIVERSAL::DOES::does($val, 'Treex::PML::List') || UNIVERSAL::DOES::does($val, 'Treex::PML::Alt') and !defined($dt) || $dt == 6 || $dt == 7) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::DOES::does($val, 'Treex::PML::Seq') and !defined($dt) || $dt == 5) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($val, 'HASH') and !defined($dt) || $dt == 3 || $dt == 4) { } |
|
737
|
0 |
0 |
if (not defined $type or defined $content_type) |
|
749
|
0 |
0 |
if (not defined $type or defined $content_type) |
|
760
|
0 |
0 |
unless (UNIVERSAL::isa($path_list, "ARRAY")) |
|
761
|
0 |
0 |
if (ref $path_list) { } |
|
770
|
0 |
0 |
wantarray ? : |
|
775
|
0 |
0 |
unless (UNIVERSAL::isa($path_list, "ARRAY")) |
|
776
|
0 |
0 |
if (ref $path_list) { } |
|
792
|
0 |
0 |
unless builtin::blessed($value) and $decl->isa("Treex::PML::Schema::Decl") and ref $callback eq "CODE" and ref $opts eq "HASH" |
|
804
|
0 |
0 |
if ($decl_is == 3) { } |
|
|
0 |
0 |
elsif ($decl_is == 4) { } |
|
|
0 |
0 |
elsif ($decl_is == 5) { } |
|
|
0 |
0 |
elsif ($decl_is == 6 or $decl_is == 7) { } |
|
|
0 |
0 |
elsif ($decl_is == 9 or $decl_is == 10 or $decl_is == 8) { } |
|
806
|
0 |
0 |
if ($opts->{'no_childnodes'}) |
|
809
|
0 |
0 |
unless not defined $role |
|
812
|
0 |
0 |
if ($opts->{'no_trees'}) |
|
815
|
0 |
0 |
unless not defined $role |
|
821
|
0 |
0 |
if defined $v |
|
828
|
0 |
0 |
if defined $v |
|
832
|
0 |
0 |
if $v |
|
839
|
0 |
0 |
if $v and $e |
|
842
|
0 |
0 |
if ($decl_is == 7 and not UNIVERSAL::DOES::does($value, "Treex::PML::Alt")) |
|
847
|
0 |
0 |
if defined $v |
|
868
|
0 |
22 |
unless (ref $fsfile) |
|
875
|
0 |
22 |
if ($schema->isa("Treex::PML::Schema") and not UNIVERSAL::DOES::does($schema, "Treex::PML::Schema")) |
|
900
|
0 |
22 |
if ($ctxt->{'_pi'}) |
|
904
|
0 |
0 |
unless defined $_ |
|
913
|
22 |
0 |
if $ctxt->{'_trees'} |
|
919
|
0 |
97 |
unless $node_decl |
|
925
|
7 |
12 |
if not $uniq{$_} |
|
927
|
0 |
0 |
if not $uniq{$_} |
|
928
|
0 |
22 |
if (@order > 1) |
|
932
|
0 |
22 |
if (@hide > 1) |
|
937
|
7 |
15 |
if @order |
|
938
|
0 |
22 |
if @hide |
|
950
|
10 |
0 |
unless (ref $ctxt) |
|
981
|
0 |
10 |
if (defined $hint and length $hint) |