| line |
true |
false |
branch |
|
17
|
4 |
1 |
if ($param{'Filename'} or $param{'Content'}) |
|
18
|
0 |
3 |
if ($param{'Filename'} and $param{'Content'}) |
|
33
|
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) { } |
|
40
|
0 |
0 |
if ($value =~ /^0x/) { } |
|
50
|
102 |
4 |
if $ret =~ /^\d+$/ |
|
59
|
0 |
4 |
unless my $type = $param{'Type'} |
|
62
|
0 |
4 |
if $@ |
|
65
|
3 |
1 |
if (my $fname = delete $param{'Filename'}) |
|
66
|
0 |
3 |
unless open FH, $fname |
|
78
|
0 |
3 |
unless ($type = $param{'Type'}) |
|
82
|
0 |
3 |
unless $type |
|
85
|
0 |
3 |
if $@ |
|
88
|
3 |
0 |
if (my $fname = delete $param{'Filename'}) |
|
90
|
0 |
3 |
unless open FH, ">$fname" |