--- CBOR-XS/XS.pm	2020/11/29 21:32:01	1.71
+++ CBOR-XS/XS.pm	2020/11/29 21:35:06	1.72
@@ -718,6 +718,11 @@
 
 =over
 
+=item CBOR::XS::as_int $value
+
+Forces the value to be encoded as some form of (basic, not bignum) integer
+type.
+
 =item CBOR::XS::as_text $value
 
 Forces the value to be encoded as (UTF-8) text values.
@@ -755,12 +760,13 @@
 
 =cut
 
-sub CBOR::XS::as_cbor    ($) { bless [$_[0], 0, undef], CBOR::XS::Tagged:: }
-sub CBOR::XS::as_bytes   ($) { bless [$_[0], 1, undef], CBOR::XS::Tagged:: }
-sub CBOR::XS::as_text    ($) { bless [$_[0], 2, undef], CBOR::XS::Tagged:: }
-sub CBOR::XS::as_float16 ($) { bless [$_[0], 3, undef], CBOR::XS::Tagged:: }
-sub CBOR::XS::as_float32 ($) { bless [$_[0], 4, undef], CBOR::XS::Tagged:: }
-sub CBOR::XS::as_float64 ($) { bless [$_[0], 5, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_int     ($) { bless [$_[0], 0, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_cbor    ($) { bless [$_[0], 1, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_bytes   ($) { bless [$_[0], 2, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_text    ($) { bless [$_[0], 3, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_float16 ($) { bless [$_[0], 4, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_float32 ($) { bless [$_[0], 5, undef], CBOR::XS::Tagged:: }
+sub CBOR::XS::as_float64 ($) { bless [$_[0], 6, undef], CBOR::XS::Tagged:: }
 
 =head2 OBJECT SERIALISATION