| … | |
… | |
| 1110 | scalar Time::Piece::gmtime (pop) |
1110 | scalar Time::Piece::gmtime (pop) |
| 1111 | }, |
1111 | }, |
| 1112 | |
1112 | |
| 1113 | 2 => sub { # pos bigint |
1113 | 2 => sub { # pos bigint |
| 1114 | require Math::BigInt; |
1114 | require Math::BigInt; |
| 1115 | Math::BigInt->from_hex ("0x" . unpack "H*", pop) |
1115 | Math::BigInt->new ("0x" . unpack "H*", pop) |
| 1116 | }, |
1116 | }, |
| 1117 | |
1117 | |
| 1118 | 3 => sub { # neg bigint |
1118 | 3 => sub { # neg bigint |
| 1119 | require Math::BigInt; |
1119 | require Math::BigInt; |
| 1120 | -Math::BigInt->from_hex ("0x" . unpack "H*", pop) |
1120 | -Math::BigInt->new ("0x" . unpack "H*", pop) |
| 1121 | }, |
1121 | }, |
| 1122 | |
1122 | |
| 1123 | 4 => sub { # decimal fraction, array |
1123 | 4 => sub { # decimal fraction, array |
| 1124 | require Math::BigFloat; |
1124 | require Math::BigFloat; |
| 1125 | Math::BigFloat->new ($_[1][1] . "E" . $_[1][0]) |
1125 | Math::BigFloat->new ($_[1][1] . "E" . $_[1][0]) |
