… | |
… | |
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.26; |
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; |
… | |
… | |
218 | isn't prepared for this will not leak memory. |
218 | isn't prepared for this will not leak memory. |
219 | |
219 | |
220 | If C<$enable> is false (the default), then C<decode> will throw an error |
220 | If C<$enable> is false (the default), then C<decode> will throw an error |
221 | when it encounters a self-referential/cyclic data structure. |
221 | when it encounters a self-referential/cyclic data structure. |
222 | |
222 | |
|
|
223 | FUTURE DIRECTION: the motivation behind this option is to avoid I<real> |
|
|
224 | cycles - future versions of this module might chose to decode cyclic data |
|
|
225 | structures using weak references when this option is off, instead of |
|
|
226 | throwing an error. |
|
|
227 | |
223 | This option does not affect C<encode> in any way - shared values and |
228 | This option does not affect C<encode> in any way - shared values and |
224 | references will always be decoded properly if present. |
229 | references will always be encoded properly if present. |
225 | |
230 | |
226 | =item $cbor = $cbor->pack_strings ([$enable]) |
231 | =item $cbor = $cbor->pack_strings ([$enable]) |
227 | |
232 | |
228 | =item $enabled = $cbor->get_pack_strings |
233 | =item $enabled = $cbor->get_pack_strings |
229 | |
234 | |
… | |
… | |
1136 | my ($m, $e) = $_[0]->parts; |
1141 | my ($m, $e) = $_[0]->parts; |
1137 | tag 4, [$e->numify, $m] |
1142 | tag 4, [$e->numify, $m] |
1138 | } |
1143 | } |
1139 | |
1144 | |
1140 | sub Time::Piece::TO_CBOR { |
1145 | sub Time::Piece::TO_CBOR { |
1141 | tag 1, $_[0]->epoch |
1146 | tag 1, 0 + $_[0]->epoch |
1142 | } |
1147 | } |
1143 | |
1148 | |
1144 | XSLoader::load "CBOR::XS", $VERSION; |
1149 | XSLoader::load "CBOR::XS", $VERSION; |
1145 | |
1150 | |
1146 | =head1 SEE ALSO |
1151 | =head1 SEE ALSO |