| line |
true |
false |
branch |
| 15 |
4 |
6 |
if ($param{'Filename'} or $param{'Content'}) |
| 16 |
0 |
4 |
if ($param{'Filename'} and $param{'Content'}) |
| 31 |
0 |
300 |
if (ref $value eq 'Math::Pari') { } |
| |
54 |
246 |
elsif (ref $value) { } |
| |
0 |
246 |
elsif ($value) { } |
| |
1 |
245 |
elsif (@_ > 1 and not defined $value) { } |
| 38 |
0 |
0 |
if ($value =~ /^0x/) { } |
| 48 |
294 |
6 |
if $ret =~ /^\d+$/ |
| 57 |
0 |
4 |
unless my $type = $param{'Type'} |
| 60 |
0 |
4 |
if $@ |
| 63 |
3 |
1 |
if (my $fname = delete $param{'Filename'}) |
| 64 |
0 |
3 |
unless open FH, $fname |
| 76 |
0 |
3 |
unless ($type = $param{'Type'}) |
| 80 |
0 |
3 |
unless $type |
| 83 |
0 |
3 |
if $@ |
| 86 |
3 |
0 |
if (my $fname = delete $param{'Filename'}) |
| 88 |
0 |
3 |
unless open FH, ">$fname" |