| line |
true |
false |
branch |
|
148
|
12 |
2 |
if (ref $mother and $mother->name) |
|
151
|
12 |
0 |
if (warnings::enabled() or $^W) |
|
153
|
0 |
12 |
unless $mother->allows_daughter($daughter) |
|
179
|
0 |
57 |
unless ref $this |
|
180
|
27 |
30 |
if @_ |
|
183
|
0 |
57 |
if (warnings::enabled() || $^W and not $this->check_attribute) |
|
230
|
0 |
13 |
if (ref $that[0] and $that[0]->isa('FrameMaker::MifTree')) { } |
|
237
|
13 |
0 |
if ref $this |
|
271
|
0 |
0 |
if ref $this |
|
301
|
0 |
7 |
if @_ == 3 |
|
302
|
0 |
7 |
if (warnings::enabled() || $^W and not defined $recurse) |
|
310
|
15 |
26 |
if defined $_[0]->name and $_[0]->name eq $name |
|
311
|
0 |
32 |
if $rec_val and @found and not $wantsarray |
|
316
|
7 |
0 |
$wantsarray ? : |
|
350
|
0 |
0 |
if @_ == 4 |
|
351
|
0 |
0 |
if (warnings::enabled() || $^W and not defined $recurse) |
|
359
|
0 |
0 |
if ($_[0]->is_leaf) |
|
360
|
0 |
0 |
if (!$name || defined $_[0]->name && $_[0]->name eq $name and (defined $_[0]->attributes and $_[0]->attributes eq $attr)) |
|
365
|
0 |
0 |
if $rec_val and @found and not $wantsarray |
|
370
|
0 |
0 |
$wantsarray ? : |
|
400
|
0 |
0 |
if $string =~ /$re/ |
|
401
|
0 |
0 |
if @found and not $wantsarray |
|
403
|
0 |
0 |
$wantsarray ? : |
|
447
|
0 |
4 |
if ($daughter->name ne 'ParaLine') { } |
|
|
1 |
3 |
elsif (not defined $first_paraline) { } |
|
453
|
2 |
1 |
if (@strobj and $strobj[-1]->string =~ /\x09$/) { } |
|
467
|
0 |
7 |
if ($daughter->name ne 'String') { } |
|
|
3 |
4 |
elsif (not defined $first_str) { } |
|
502
|
6 |
11 |
if defined $new_val |
|
516
|
0 |
0 |
unless ref $this |
|
517
|
0 |
0 |
if @_ |
|
532
|
0 |
0 |
unless ref $this |
|
544
|
0 |
0 |
unless ref $this |
|
545
|
0 |
0 |
$_[0] ? : |
|
|
0 |
0 |
if @_ |
|
546
|
0 |
0 |
$this->attributes eq 'No' ? : |
|
|
0 |
0 |
$this->attributes eq 'Yes' ? : |
|
573
|
0 |
0 |
unless ref $this |
|
574
|
0 |
0 |
if @_ |
|
581
|
0 |
0 |
wantarray ? : |
|
592
|
0 |
0 |
unless ref $this |
|
593
|
0 |
0 |
if @_ |
|
609
|
0 |
0 |
unless ref $this |
|
611
|
0 |
0 |
if ($fh) { } |
|
616
|
0 |
0 |
if warnings::enabled() or $^W |
|
630
|
0 |
0 |
unless ref $this |
|
631
|
0 |
0 |
unless $this->name eq '_facet' |
|
635
|
0 |
0 |
unless $this->name eq '_facet' |
|
636
|
0 |
0 |
fileno $this->attributes ? : |
|
654
|
0 |
0 |
if defined $value and not defined $unit_to_factor{$value} |
|
692
|
0 |
0 |
if exists $_[1] |
|
712
|
12 |
0 |
if ref $this |
|
713
|
12 |
0 |
if defined $mifnodes{$this} |
|
725
|
36 |
0 |
if ref $this |
|
726
|
36 |
0 |
if exists $mifleaves{$this} |
|
738
|
0 |
12 |
unless ref $mother |
|
739
|
0 |
12 |
unless $daughter->isa('FrameMaker::MifTree') |
|
741
|
12 |
0 |
if (defined $daughter->name) |
|
781
|
0 |
57 |
$it->get_attribute_error ? : |
|
793
|
36 |
21 |
if (defined $$it{'attributes'}) |
|
794
|
0 |
36 |
if (not $it->is_leaf) { } |
|
800
|
0 |
36 |
unless ($$it{'attributes'} =~ /$attribute_types{$attrType}/) |
|
824
|
0 |
0 |
if $from_root |
|
854
|
0 |
0 |
if (defined $this->mother) |
|
855
|
0 |
0 |
if (warnings::enabled() || $^W and not $this->name) |
|
858
|
0 |
0 |
unless ($this->is_node or defined $this->attributes) |
|
859
|
0 |
0 |
if (warnings::enabled() or $^W) |
|
864
|
0 |
0 |
if ($this->name eq '_facet') { } |
|
867
|
0 |
0 |
$this->name eq 'DocFileInfo' ? : |
|
|
0 |
0 |
$this->is_node ? : |
|
880
|
0 |
0 |
if (defined $this->mother) { } |
|
881
|
0 |
0 |
if ($this->is_node) |
|
902
|
0 |
0 |
unless open my $MIF, ">$filename" |
|
906
|
0 |
0 |
if (defined $this->mother) |
|
907
|
0 |
0 |
if (warnings::enabled() || $^W and not $this->name) |
|
910
|
0 |
0 |
unless ($this->is_node or defined $this->attributes) |
|
911
|
0 |
0 |
if (warnings::enabled() or $^W) |
|
916
|
0 |
0 |
if ($this->name eq '_facet') { } |
|
919
|
0 |
0 |
$this->name eq 'DocFileInfo' ? : |
|
|
0 |
0 |
$this->is_node ? : |
|
932
|
0 |
0 |
if (defined $this->mother) { } |
|
933
|
0 |
0 |
if ($this->is_node) |
|
996
|
0 |
40 |
if ($tok eq 'FACET') { } |
|
997
|
0 |
0 |
unless ($facet_handle) |
|
1004
|
13 |
27 |
if ($tok eq 'MIFTAG') { } |
|
|
13 |
14 |
elsif ($tok eq 'RANGLE') { } |
|
|
8 |
6 |
elsif ($tok eq 'ATTRIBS') { } |
|
1009
|
0 |
8 |
if (defined $cur_obj->attributes) { } |
|
1029
|
0 |
0 |
unless -f $filename |
|
1040
|
0 |
0 |
if ($tok eq 'FACET') { } |
|
1041
|
0 |
0 |
unless ($facet_handle) |
|
1048
|
0 |
0 |
if ($tok eq 'MIFTAG') { } |
|
|
0 |
0 |
elsif ($tok eq 'RANGLE') { } |
|
|
0 |
0 |
elsif ($tok eq 'ATTRIBS') { } |
|
1053
|
0 |
0 |
if (defined $cur_obj->attributes) { } |
|
1101
|
0 |
6 |
unless defined $s |
|
1102
|
0 |
6 |
if (warnings::enabled() || $^W and defined $use_unicode_deprecated) |
|
1106
|
2 |
4 |
if ($use_unicode_deprecated or $use_unicode) |
|
1109
|
0 |
2 |
if $@ |
|
1139
|
0 |
17 |
unless defined $s |
|
1140
|
0 |
17 |
if (warnings::enabled() || $^W and defined $use_unicode_deprecated) |
|
1144
|
17 |
0 |
if $s =~ s/^`// |
|
1151
|
2 |
15 |
if ($use_unicode_deprecated or $use_unicode) |
|
1154
|
0 |
2 |
if $@ |
|
1174
|
0 |
0 |
unless defined $s |
|
1176
|
0 |
0 |
if $s =~ s/^`// |
|
1210
|
0 |
0 |
unless defined $s |
|
1213
|
0 |
0 |
if $s =~ s/^`// |
|
1215
|
0 |
0 |
unless $s =~ /^<[cu]\\>/ |
|
1279
|
0 |
0 |
unless $new_unit eq '"' or $new_unit eq '' |
|
1280
|
0 |
0 |
$suppress_unit ? : |