| line |
true |
false |
branch |
|
24
|
0 |
1 |
if blessed $class |
|
34
|
0 |
1 |
if $Debug |
|
45
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
58
|
0 |
1 |
if (exists $$o{'mother'} and blessed($$o{'mother'})) |
|
67
|
0 |
0 |
if (exists $$o{'daughters'} and ref $$o{'daughters'} eq 'ARRAY' and @{$$o{'daughters'};}) |
|
79
|
0 |
1 |
if (exists $$o{'name'}) |
|
88
|
0 |
1 |
if (exists $$o{'attributes'}) |
|
95
|
0 |
0 |
if @_ |
|
98
|
0 |
0 |
wantarray ? : |
|
103
|
0 |
0 |
if @_ |
|
105
|
0 |
0 |
if (my $parent = $tree->parent) |
|
113
|
0 |
0 |
unless @_ |
|
121
|
0 |
0 |
unless @_ |
|
145
|
0 |
0 |
unless ref $self |
|
147
|
0 |
0 |
unless @_ |
|
157
|
0 |
0 |
if (my $parent = $self->mother) |
|
166
|
0 |
0 |
unless @_ |
|
176
|
0 |
0 |
if @_ |
|
183
|
0 |
0 |
if (not $self->mother) { } |
|
185
|
0 |
0 |
if (my $parent = $node->mother) |
|
194
|
0 |
0 |
unless $_ eq $self or not $_parent |
|
197
|
0 |
0 |
$_ eq $self ? : |
|
214
|
0 |
0 |
unless @_ |
|
223
|
0 |
0 |
unless @_ |
|
232
|
0 |
0 |
if @_ |
|
238
|
0 |
0 |
if (@_) |
|
239
|
0 |
0 |
unless ref $_[0] |
|
251
|
0 |
0 |
unless my(@ancestors) = $self->mother |
|
287
|
0 |
0 |
if $node->is_leaf |
|
300
|
0 |
0 |
if $node->depth > $max_depth |
|
314
|
0 |
0 |
unless my $parent = $self->mother |
|
325
|
0 |
0 |
unless my $parent = $self->mother |
|
329
|
0 |
0 |
if $sister eq $self |
|
338
|
0 |
0 |
unless my(@sisters) = $self->left_sisters |
|
345
|
0 |
0 |
unless my $parent = $self->mother |
|
349
|
0 |
0 |
if $sister eq $self |
|
358
|
0 |
0 |
unless my(@sisters) = $self->right_sisters |
|
365
|
0 |
0 |
unless my $parent = $self->mother |
|
375
|
0 |
0 |
if (defined $address and length $address) { } |
|
378
|
0 |
0 |
unless @parts |
|
379
|
0 |
0 |
unless shift @parts == 0 |
|
386
|
0 |
0 |
if ($#daughters < $index) |
|
407
|
0 |
0 |
unless @others |
|
417
|
0 |
0 |
if (exists $first_lineage{$my_lineage[0]}) |
|
423
|
0 |
0 |
unless $higher |
|
432
|
0 |
0 |
unless @others |
|
438
|
0 |
0 |
if (exists $ones{$common}) { } |
|
448
|
0 |
0 |
unless ref $o |
|
449
|
0 |
0 |
unless ref $$o{'callback'} or ref $$o{'callbackback'} |
|
452
|
0 |
0 |
ref $$o{'callback'} ? : |
|
453
|
0 |
0 |
ref $$o{'callbackback'} ? : |
|
456
|
0 |
0 |
if $callback |
|
458
|
0 |
0 |
if ($callback_status) |
|
459
|
0 |
0 |
UNIVERSAL::can($this, 'is_node') ? : |
|
460
|
0 |
0 |
if (@daughters) |
|
463
|
0 |
0 |
if UNIVERSAL::can($one, 'is_node') |
|
469
|
0 |
0 |
if ($callbackback) |
|
470
|
0 |
0 |
if (UNIVERSAL::can($this, 'is_node')) |
|
480
|
0 |
0 |
unless ref $o |
|
509
|
0 |
0 |
unless ref $seen_r eq 'HASH' |
|
510
|
0 |
0 |
if ref $lol and $$seen_r{$lol}++ |
|
515
|
0 |
0 |
unless (ref $lol eq 'ARRAY') |
|
516
|
0 |
0 |
if defined $lol |
|
519
|
0 |
0 |
unless @$lol |
|
524
|
0 |
0 |
unless (ref $options[-1] eq 'ARRAY') |
|
540
|
0 |
0 |
unless ref $o |
|
543
|
0 |
0 |
unless exists $$o{'multiline'} |
|
546
|
0 |
0 |
if ($$o{'multiline'}) { } |
|
566
|
0 |
0 |
if (not defined $name) { } |
|
587
|
0 |
0 |
unless ref $o |
|
607
|
0 |
0 |
unless ref $$out[0] |
|
615
|
0 |
0 |
unless ref $seen_r eq 'HASH' |
|
616
|
0 |
0 |
if ref $lol and $$seen_r{$lol}++ |
|
620
|
0 |
0 |
unless (ref $lol eq 'ARRAY') |
|
621
|
0 |
0 |
if defined $lol |
|
637
|
0 |
0 |
unless scalar $root->daughters |
|
641
|
0 |
0 |
unless ref $o |
|
648
|
0 |
0 |
scalar $this->daughters ? : |
|
658
|
0 |
0 |
unless ref $$out[0] |
|
665
|
0 |
0 |
unless ref $o |
|
668
|
0 |
0 |
unless exists $$o{'multiline'} |
|
671
|
0 |
0 |
if ($$o{'multiline'}) { } |
|
681
|
0 |
0 |
if (scalar $this->daughters) { } |
|
688
|
0 |
0 |
defined $name ? : |
|
698
|
0 |
0 |
if scalar $this->daughters |
|
718
|
0 |
0 |
ref $_[1] ? : |
|
724
|
0 |
0 |
unless exists $$o{'no_name'} |
|
725
|
0 |
0 |
unless exists $$o{'h_spacing'} |
|
726
|
0 |
0 |
unless exists $$o{'h_compact'} |
|
727
|
0 |
0 |
unless exists $$o{'v_compact'} |
|
730
|
0 |
0 |
if ($$o{'no_name'}) { } |
|
738
|
0 |
0 |
if (not scalar @daughters) { } |
|
747
|
0 |
0 |
if $h > $max_height |
|
758
|
0 |
0 |
if ($deficit > 0) |
|
772
|
0 |
0 |
if ($$o{'h_compact'}) |
|
778
|
0 |
0 |
if $$b1[$line] =~ /( +)$/s |
|
779
|
0 |
0 |
if $$b2[$line] =~ /^( +)/s |
|
782
|
0 |
0 |
if $sum < $min_diff |
|
786
|
0 |
0 |
if $to_chop < 0 |
|
789
|
0 |
0 |
if (not $$o{'h_compact'} && $to_chop) { } |
|
799
|
0 |
0 |
if ($remaining) |
|
802
|
0 |
0 |
if ($l_chop) |
|
803
|
0 |
0 |
if ($l_chop > $remaining) { } |
|
|
0 |
0 |
elsif ($l_chop == $remaining) { } |
|
812
|
0 |
0 |
if ($r_chop) |
|
813
|
0 |
0 |
if ($r_chop > $remaining) { } |
|
|
0 |
0 |
elsif ($r_chop == $remaining) { } |
|
823
|
0 |
0 |
if $l_chop |
|
824
|
0 |
0 |
if $r_chop |
|
836
|
0 |
0 |
if ($$o{'h_spacing'}) |
|
838
|
0 |
0 |
if length $line |
|
843
|
0 |
0 |
unless @box |
|
848
|
0 |
0 |
if ($pipe_count < 2) { } |
|
856
|
0 |
0 |
if ($new_pipes =~ s/^( +)//s) { } |
|
862
|
0 |
0 |
if ($new_pipes =~ s/( +)$//s) { } |
|
877
|
0 |
0 |
if ($$o{'v_compact'} == 2) { } |
|
|
0 |
0 |
elsif ($$o{'v_compact'} == 1 and @daughters == 1) { } |
|
878
|
0 |
0 |
if (@daughters == 1) { } |
|
894
|
0 |
0 |
if $w > $max_width |
|
898
|
0 |
0 |
unless $space_to_add |
|
909
|
0 |
0 |
unless ref $o |
|
912
|
0 |
0 |
if @daughters |
|
919
|
0 |
0 |
unless ref $o |
|
929
|
0 |
0 |
unless $o |
|
931
|
0 |
0 |
blessed $self ? : |
|
944
|
0 |
0 |
if ($$o{'no_attribute_copy'}) { } |
|
948
|
0 |
0 |
if (my $attrib_copy = ref $self->attributes) |
|
949
|
0 |
0 |
if ($attrib_copy eq 'HASH') { } |
|
|
0 |
0 |
elsif ($attrib_copy = UNIVERSAL::can($self->attributes, 'copy')) { } |
|
984
|
0 |
0 |
if (not length $_) { } |
|
|
0 |
0 |
elsif (/^-?\d+(?:\.\d+)?$/s) { } |
|
|
0 |
0 |
elsif (s/([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])/'\\x' . unpack('H2', $1);/eg) { } |