| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless s/^pair=([1-9])$/$1/ |
|
57
|
0 |
2 |
if $n < 1 |
|
168
|
1 |
34 |
if ($p eq '\\') { } |
|
204
|
1 |
34 |
if $id =~ /[^\x21-\x7e]/ |
|
209
|
0 |
34 |
if $id =~ /[$expect_hexenc]/ |
|
223
|
4 |
30 |
if $id =~ /\^($|.$|[^0-9a-fA-F].|.[^0-9a-fA-F])/ |
|
258
|
0 |
0 |
unless -e $pxfile |
|
260
|
0 |
0 |
if $msg |
|
271
|
0 |
0 |
unless $dir |
|
272
|
0 |
0 |
unless $id |
|
273
|
0 |
0 |
unless ref $r_opt eq 'HASH' |
|
284
|
0 |
0 |
if $prefix and not $id =~ s/^$prefix// and $$r_opt{'force'} |
|
289
|
0 |
0 |
unless -e $ppath |
|
304
|
0 |
0 |
if $nbuds == 0 |
|
311
|
0 |
0 |
if $nbuds > 1 |
|
335
|
0 |
0 |
unless my $om = $$r_opt{'om'} |
|
362
|
0 |
0 |
if ($curobj{'ppath'}) |
|
365
|
0 |
0 |
unless $$r_opt{'long'} and $om->elem('node', join(' ', $_, $curobj{'ppath'}, "$curobj{'octets'}.$curobj{'streams'}")), 1 |
|
372
|
0 |
0 |
if $curobj{'ppath'} eq $ppath |
|
378
|
0 |
0 |
unless defined $ppath and defined $encaperr and defined $octets and defined $streams |
|
398
|
0 |
0 |
unless $symlinks_followed and $sze = -s _ |
|
406
|
0 |
0 |
if (not $Win and -l _) |
|
416
|
0 |
0 |
if (-f $tpname) { } |
|
|
0 |
0 |
elsif (-d $tpname) { } |
|
418
|
0 |
0 |
if (m[^.*$R/(.*/)?pairtree.*$]o) { } |
|
|
0 |
0 |
elsif (m[^.*$R/$P/[^/]+$]o) { } |
|
441
|
0 |
0 |
if (m[^.*$R/(.*/)?pairtree.*$]o) { } |
|
|
0 |
0 |
elsif (m[^.*$R/($P/)?[^/]{$pairp1,}$]o) { } |
|
|
0 |
0 |
elsif (m[^.*$R/$P$]o) { } |
|
|
0 |
0 |
elsif (m[^.*$R/([^/]{$pair}/)*[^/]{1,$pairm1}/[^/]{1,$pair}$]o) { } |
|
486
|
0 |
0 |
if $ret |
|
487
|
0 |
0 |
$objectcount == 1 ? : |
|
499
|
0 |
0 |
unless $tree |
|
500
|
0 |
0 |
unless ref $r_opt eq 'HASH' |
|
502
|
0 |
0 |
unless ref($r_visit_node ||= \&pt_visit_node) eq 'CODE' |
|
512
|
0 |
0 |
unless $find_opt |
|
515
|
0 |
0 |
if $visit_over |
|
526
|
0 |
0 |
unless $id |
|
531
|
0 |
0 |
if $n < $pair |
|
535
|
0 |
0 |
if $bud_style == 0 |
|
544
|
0 |
0 |
unless $dir |
|
545
|
0 |
0 |
unless $id |
|
546
|
0 |
0 |
unless ref $r_opt eq 'HASH' |
|
556
|
0 |
0 |
if $prefix and not $id =~ s/^$prefix// and $$r_opt{'force'} |
|
559
|
0 |
0 |
if $id =~ /^\s*$/ |
|
562
|
0 |
0 |
unless -d $dir |
|
571
|
0 |
0 |
if $@ |
|
572
|
0 |
0 |
if ($ret == 0) |
|
573
|
0 |
0 |
unless -e $bud |
|
588
|
0 |
0 |
unless $dir |
|
590
|
0 |
0 |
unless ref $r_opt eq 'HASH' |
|
598
|
0 |
0 |
if ($@) |
|
602
|
0 |
0 |
if ($ret == 0) |
|
603
|
0 |
0 |
-e $dir ? : |
|
609
|
0 |
0 |
if $prefix |
|
611
|
0 |
0 |
if ($msg) |
|
615
|
0 |
0 |
if $msg |
|
620
|
0 |
0 |
if $msg |
|
627
|
0 |
0 |
unless $dir |
|
628
|
0 |
0 |
unless $id |
|
629
|
0 |
0 |
unless ref $r_opt eq 'HASH' |
|
639
|
0 |
0 |
if $prefix and not $id =~ s/^$prefix// and $$r_opt{'force'} |
|
642
|
0 |
0 |
if $id =~ /^\s*$/ |
|
650
|
0 |
0 |
unless -e $ppath |
|
658
|
0 |
0 |
if ($@) |
|
662
|
0 |
0 |
if ($ret == 0) |
|
663
|
0 |
0 |
-e $ppath ? : |