| … | |
… | |
| 64 | |
64 | |
| 65 | package CBOR::XS; |
65 | package CBOR::XS; |
| 66 | |
66 | |
| 67 | use common::sense; |
67 | use common::sense; |
| 68 | |
68 | |
| 69 | our $VERSION = 1.12; |
69 | our $VERSION = 1.25; |
| 70 | our @ISA = qw(Exporter); |
70 | our @ISA = qw(Exporter); |
| 71 | |
71 | |
| 72 | our @EXPORT = qw(encode_cbor decode_cbor); |
72 | our @EXPORT = qw(encode_cbor decode_cbor); |
| 73 | |
73 | |
| 74 | use Exporter; |
74 | use Exporter; |
| … | |
… | |
| 1136 | my ($m, $e) = $_[0]->parts; |
1136 | my ($m, $e) = $_[0]->parts; |
| 1137 | tag 4, [$e->numify, $m] |
1137 | tag 4, [$e->numify, $m] |
| 1138 | } |
1138 | } |
| 1139 | |
1139 | |
| 1140 | sub Time::Piece::TO_CBOR { |
1140 | sub Time::Piece::TO_CBOR { |
| 1141 | tag 1, $_[0]->epoch |
1141 | tag 1, 0 + $_[0]->epoch |
| 1142 | } |
1142 | } |
| 1143 | |
1143 | |
| 1144 | XSLoader::load "CBOR::XS", $VERSION; |
1144 | XSLoader::load "CBOR::XS", $VERSION; |
| 1145 | |
1145 | |
| 1146 | =head1 SEE ALSO |
1146 | =head1 SEE ALSO |
