line |
true |
false |
branch |
69
|
26 |
36 |
if (defined $input) { }
|
80
|
0 |
0 |
unless (defined $possible_gmp_integer)
|
84
|
0 |
0 |
unless (main::RPerl_SvHROKp($possible_gmp_integer))
|
89
|
0 |
0 |
unless (defined $classname)
|
93
|
0 |
0 |
unless (UNIVERSAL::isa($possible_gmp_integer, 'Math::BigInt'))
|
97
|
0 |
0 |
if ($classname ne 'gmp_integer')
|
101
|
0 |
0 |
unless (exists $possible_gmp_integer->{'value'})
|
105
|
0 |
0 |
unless (defined $possible_gmp_integer->{'value'})
|
109
|
0 |
0 |
unless (defined main::class($possible_gmp_integer->{'value'}))
|
113
|
0 |
0 |
unless (UNIVERSAL::isa($possible_gmp_integer->{'value'}, 'Math::BigInt::GMP'))
|
127
|
4 |
56 |
unless (defined $possible_gmp_integer)
|
131
|
10 |
46 |
unless (main::RPerl_SvHROKp($possible_gmp_integer))
|
136
|
4 |
42 |
unless (defined $classname)
|
140
|
2 |
40 |
unless (UNIVERSAL::isa($possible_gmp_integer, 'Math::BigInt'))
|
144
|
2 |
38 |
if ($classname ne 'gmp_integer')
|
148
|
2 |
36 |
unless (exists $possible_gmp_integer->{'value'})
|
152
|
2 |
34 |
unless (defined $possible_gmp_integer->{'value'})
|
156
|
8 |
26 |
unless (defined main::class($possible_gmp_integer->{'value'}))
|
160
|
26 |
0 |
unless (UNIVERSAL::isa($possible_gmp_integer->{'value'}, 'Math::BigInt::GMP'))
|
176
|
0 |
0 |
if (gmp_get_signed_integer($input_gmp_integer) == 0) { }
|
221
|
0 |
0 |
if ($tmp_string eq '') { }
|
238
|
0 |
0 |
if ($is_negative)
|
240
|
0 |
0 |
if (substr($retval, -1, 1) eq '_')
|
243
|
0 |
0 |
if ($is_negative)
|