ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CBOR-XS/XS.pm
(Generate patch)

Comparing CBOR-XS/XS.pm (file contents):
Revision 1.72 by root, Sun Nov 29 21:35:06 2020 UTC vs.
Revision 1.75 by root, Mon Nov 30 20:38:25 2020 UTC

… …
64 64
65package CBOR::XS; 65package CBOR::XS;
66 66
67use common::sense; 67use common::sense;
68 68
69our $VERSION = 1.71; 69our $VERSION = 1.81;
70our @ISA = qw(Exporter); 70our @ISA = qw(Exporter);
71 71
72our @EXPORT = qw(encode_cbor decode_cbor); 72our @EXPORT = qw(encode_cbor decode_cbor);
73 73
74use Exporter; 74use Exporter;
… …
729 729
730=item CBOR::XS::as_bytes $value 730=item CBOR::XS::as_bytes $value
731 731
732Forces the value to be encoded as a (binary) string value. 732Forces the value to be encoded as a (binary) string value.
733 733
734=item CBOR::XS::as_bool $value
735
736Converts a Perl boolean (which can be any kind of scalar) into a CBOR
737boolean. Exactly the same, but shorter to write, than:
738
739 $value ? Types::Serialiser::true : Types::Serialiser::false
740
734=item CBOR::XS::as_float16 $value 741=item CBOR::XS::as_float16 $value
735 742
736Forces half-float (IEEE 754 binary16) encoding of the given value. 743Forces half-float (IEEE 754 binary16) encoding of the given value.
737 744
738=item CBOR::XS::as_float32 $value 745=item CBOR::XS::as_float32 $value
… …
758 765
759 CBOR::XS->new->text_strings->encode ([4, "text", CBOR::XS::bytes "bytevalue"]); 766 CBOR::XS->new->text_strings->encode ([4, "text", CBOR::XS::bytes "bytevalue"]);
760 767
761=cut 768=cut
762 769
763sub CBOR::XS::as_int ($) { bless [$_[0], 0, undef], CBOR::XS::Tagged:: }
764sub CBOR::XS::as_cbor ($) { bless [$_[0], 1, undef], CBOR::XS::Tagged:: } 770sub CBOR::XS::as_cbor ($) { bless [$_[0], 0, undef], CBOR::XS::Tagged:: }
771sub CBOR::XS::as_int ($) { bless [$_[0], 1, undef], CBOR::XS::Tagged:: }
765sub CBOR::XS::as_bytes ($) { bless [$_[0], 2, undef], CBOR::XS::Tagged:: } 772sub CBOR::XS::as_bytes ($) { bless [$_[0], 2, undef], CBOR::XS::Tagged:: }
766sub CBOR::XS::as_text ($) { bless [$_[0], 3, undef], CBOR::XS::Tagged:: } 773sub CBOR::XS::as_text ($) { bless [$_[0], 3, undef], CBOR::XS::Tagged:: }
767sub CBOR::XS::as_float16 ($) { bless [$_[0], 4, undef], CBOR::XS::Tagged:: } 774sub CBOR::XS::as_float16 ($) { bless [$_[0], 4, undef], CBOR::XS::Tagged:: }
768sub CBOR::XS::as_float32 ($) { bless [$_[0], 5, undef], CBOR::XS::Tagged:: } 775sub CBOR::XS::as_float32 ($) { bless [$_[0], 5, undef], CBOR::XS::Tagged:: }
769sub CBOR::XS::as_float64 ($) { bless [$_[0], 6, undef], CBOR::XS::Tagged:: } 776sub CBOR::XS::as_float64 ($) { bless [$_[0], 6, undef], CBOR::XS::Tagged:: }
777
778sub CBOR::XS::as_bool ($) { $_[0] ? Types::Serialiser::true : Types::Serialiser::false }
770 779
771=head2 OBJECT SERIALISATION 780=head2 OBJECT SERIALISATION
772 781
773This module implements both a CBOR-specific and the generic 782This module implements both a CBOR-specific and the generic
774L<Types::Serialier> object serialisation protocol. The following 783L<Types::Serialier> object serialisation protocol. The following

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines