| line |
true |
false |
branch |
|
18
|
2 |
0 |
unless $sgmls |
|
19
|
2 |
0 |
unless $sgmlsopts |
|
20
|
2 |
0 |
unless ($doctype and -f $doctype) |
|
22
|
2 |
0 |
unless (defined $doctype and -f $doctype) |
|
25
|
0 |
2 |
unless (-f $doctype) |
|
29
|
2 |
0 |
unless $sgmls_command |
|
36
|
0 |
0 |
if ($mode eq 'w') { } |
|
|
0 |
0 |
elsif ($mode eq 'r') { } |
|
41
|
0 |
0 |
unless -f $doctype |
|
42
|
0 |
0 |
if $Treex::PML::Debug |
|
47
|
0 |
0 |
if $Treex::PML::Debug |
|
53
|
0 |
0 |
unless open my $olderr, '>&', \*STDERR |
|
54
|
0 |
0 |
unless open STDERR, '>&', $err |
|
57
|
0 |
0 |
if $fh and $^O eq 'MSWin32' |
|
60
|
0 |
0 |
unless open STDERR, '>&', $olderr |
|
61
|
0 |
0 |
if ($@) |
|
75
|
0 |
0 |
if (exists $stderr_pool{$fh}) |
|
81
|
0 |
0 |
if (defined $warnings and length $warnings) |
|
85
|
0 |
0 |
unless (Treex::PML::IO::close_backend($fh)) |
|
100
|
0 |
1 |
if -x $sgmls |
|
101
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
102
|
0 |
9 |
$^O eq 'MSWin32' ? : |
|
|
0 |
9 |
if (-x "$_" . ($^O eq 'MSWin32' ? '\\' : '/') . "$sgmls") |
|
103
|
0 |
0 |
unless (-f $doctype) |
|
104
|
0 |
0 |
if $Treex::PML::Debug |
|
110
|
1 |
0 |
if $Treex::PML::Debug |
|
117
|
0 |
0 |
unless test_nsgmls() |
|
118
|
0 |
0 |
if (ref $f) { } |