| line |
true |
false |
branch |
|
20
|
0 |
0 |
if ($param{'Filename'} or $param{'Content'}) |
|
21
|
0 |
0 |
if ($param{'Filename'} and $param{'Content'}) |
|
36
|
0 |
0 |
if (ref $value eq 'Math::Pari') { } |
|
|
0 |
0 |
elsif (ref $value) { } |
|
|
0 |
0 |
elsif ($value) { } |
|
|
0 |
0 |
elsif (@_ > 1 and not defined $value) { } |
|
43
|
0 |
0 |
if ($value =~ /^0x/) { } |
|
53
|
0 |
0 |
if $ret =~ /^\d+$/ |
|
62
|
0 |
0 |
unless my $type = $param{'Type'} |
|
65
|
0 |
0 |
if $@ |
|
68
|
0 |
0 |
if (my $fname = delete $param{'Filename'}) |
|
69
|
0 |
0 |
unless open FH, $fname |
|
81
|
0 |
0 |
unless ($type = $param{'Type'}) |
|
85
|
0 |
0 |
unless $type |
|
88
|
0 |
0 |
if $@ |
|
91
|
0 |
0 |
if (my $fname = delete $param{'Filename'}) |
|
93
|
0 |
0 |
unless open FH, ">$fname" |