| line |
true |
false |
branch |
|
18
|
4 |
1 |
if ($param{'Filename'} or $param{'Content'}) |
|
19
|
0 |
3 |
if ($param{'Filename'} and $param{'Content'}) |
|
34
|
0 |
106 |
if (ref $value eq 'Math::Pari') { } |
|
|
25 |
81 |
elsif (ref $value) { } |
|
|
0 |
81 |
elsif ($value) { } |
|
|
1 |
160 |
elsif (@_ > 1 and not defined $value) { } |
|
41
|
0 |
0 |
if ($value =~ /^0x/) { } |
|
51
|
102 |
4 |
if $ret =~ /^\d+$/ |
|
60
|
0 |
4 |
unless my $type = $param{'Type'} |
|
63
|
0 |
4 |
if $@ |
|
66
|
3 |
1 |
if (my $fname = delete $param{'Filename'}) |
|
67
|
0 |
3 |
unless open FH, "<", $fname |
|
79
|
0 |
3 |
unless ($type = $param{'Type'}) |
|
83
|
0 |
3 |
unless $type |
|
86
|
0 |
3 |
if $@ |
|
89
|
3 |
0 |
if (my $fname = delete $param{'Filename'}) |
|
91
|
0 |
3 |
unless open FH, ">", $fname |