Types::Bool - An interface to booleans as objects for Perl
version 2.98011
use Types::Bool qw(true false is_bool to_bool); $true = true; $false = false; is_bool(true); # true is_bool('xxx'); # false to_bool(1); # Types::Bool::true() to_bool(''); # Types::Bool::false()
Perl has no native representation for booleans. Most of the time the Perl concept of truth is enough. But when dealing with serialization of formats which support booleans, it is desirable to keep the booleans intact on round trips, eg. when writing after loading. And there are other good reasons for that, like strict validation via various mechanisms, like schemas, OpenAPI, type hierarchies, etc.
A solution for that was adopted for JSON modules around 2012 by using references to 1 or 0 blessed into JSON::PP::Boolean which was the chosen canonical package for these objects.
1
0
The problem with that was the coupling with JSON::PP for no apparent good reason. Booleans are independent of JSON and this association makes little sense when loading documents in formats like YAML, MessagePack, BSON, etc. However, the integration of the concept of boolean for all these applications is quite convenient.
Marc Lehmann's Types::Serialiser approached this problem by creating a common interface used by JSON::XS and CBOR::XS modules. This module lifts this core concept (including idea, implementation and documentation) into an isolated treatment for booleans only – so this may work as a common ground for interoperability on booleans as objects for Perl modules.
The implementation keeps the compatibility with the previous agreement on JSON::PP::Boolean by making the Types::Bool implementation stash an alias for JSON::PP::Boolean.
JSON::PP::Boolean
Types::Bool
That means
Types::Bool::true->isa('JSON::PP::Boolean');
but also
Types::Bool::true->isa(Types::Bool::BOOL_CORE);
This also allows the optimization of an isa test to a direct comparison of stash pointers.
Types::Bool has two ready-to-use instances for true and false.
Types::Bool::true() Types::Bool::false()
Types::Bool true values are represented as a reference to a scalar containing 1 – implementations are allowed to directly test for this. For example, one can tell if a value is a Types::Bool true by using this:
Types::Bool::is_bool($value) && $$value
Types::Bool false values are represented as a reference to a scalar containing 0 – implementations are allowed to directly test for this.
One can test if a value is a Types::Bool boolean with
Types::Bool::is_bool($value);
Converting from a Perl true or false value into Types::Bool booleans can be done with
Types::Bool::to_bool($value);
Independent boolean objects may be produced from a Perl true or false value by using
Types::Bool->new($value);
Also part of this interface is a few overloaded operators for Type::Bool booleans.
# bool true ? 'yes' : 'no'; # 'yes' false ? 'yes' : 'no'; # 'no' # 0+ 0+ true; # 1 0+ false; # 0 # "" true . ''; # 1 false . ''; # 0
The code of this module would look as below, if not for the efforts to play nice with JSON::PP, Types::Serialiser and Cpanel::JSON::XS modules.
package Types::Bool::Impl; use 5.006; use overload ( '0+' => sub { ${ $_[0] } }, '++' => sub { $_[0] = ${ $_[0] } + 1 }, '--' => sub { $_[0] = ${ $_[0] } - 1 }, fallback => 1, ); sub new { bless \( my $dummy = $_[1] ? 1 : 0 ), $_[0] } package Types::Bool; use 5.006; use Exporter 1.57 'import'; use Scalar::Util (); our @EXPORT_OK = qw(true false is_bool to_bool); use constant true => Types::Bool::Impl->new(1); use constant false => Types::Bool::Impl->new(0); use constant BOOL_CORE => ref true; sub is_bool ($) { Scalar::Util::blessed( $_[0] ) and $_[0]->isa(BOOL_CORE) } sub to_bool ($) { $_[0] ? true : false }
Besides the agreement on using JSON::PP::Boolean as the canonical package for booleans, as of May 2018, the main JSON modules all step on each others' toes with varying degrees of intensity when it comes to decide what is implemented.
What we consider here the "main JSON modules" are: JSON::PP, Types::Serialiser, and Cpanel::JSON::XS. These are the original sources of ideas, implementations, and package names related to boolean support and the most relevant CPAN modules on the dependency chain.
For example,
JSON::PP::Boolean defines VERSION and overloads 0+, ++ and -- operators.
VERSION
0+
++
--
Types::Serialiser establishes an ISA relationship with a base class overloading the same operators above.
ISA
Cpanel::JSON::XS in turn overloads these operators and a few more.
As these modules are loaded by a Perl program, these actions are all replayed over the JSON::PP::Boolean package. (The last one loaded is basically who wins on the final code at runtime.) This is almost harmless, because their implementations mostly agree with each other. But it is not hard to see this getting out of hand if they start to diverge.
The additional interface for boolean support provided by these modules, whether functions, variables and methods, live on their own packages:
JSON::PP: true, false, is_bool under JSON::PP
true
false
is_bool
JSON::PP
Types::Serialiser: true, $true, false, $false, is_bool, is_true, is_false under Types::Serialiser
$true
$false
is_true
is_false
Types::Serialiser
Cpanel::JSON::XS: true, $true, false, $false, is_bool under Cpanel::JSON::XS.
Cpanel::JSON::XS
They all have subtle differences related to prototypes, enabled pragmas, and stricter or more lenient behavior. Since those don't dwell in the same base package, JSON::PP::Boolean, they are safe from the point of view of other consumers of booleans and relevant to the back-compatibility history of each of these modules. But they all contribute to the lack of consistency on the interface to deal with booleans.
Those issues mainly stem from the lack of a consensus on ownership of JSON::PP::Boolean.
When Types::Bool gets added to this list as yet another module playing with JSON::PP::Boolean, it takes the most conservative approach: it does not touch a function or overloaded method which is already there. That means it will still provide the entire interface described before, because it will implement anything that is missing. But it may suboptimally accept what has been defined before by a previous module. And it does not fight with modules which get loaded after either.
The best scenario would be if / when the main JSON modules delegated the content of the boolean implementation to a distribution containing JSON::PP::Boolean. Even if that does not happen, this module still offers as a compatible and sane interface to booleans as objects for Perl.
Types::Bool implements the following functions, which can be imported individually (except for BOOL_CORE).
BOOL_CORE
$package = Types::Bool::BOOL_CORE;
The implementation package of the boolean objects.
It is recommended to always use this instead of 'JSON::PP::Boolean' or 'Types::Bool::Impl' for maximum compatibility. It works correctly with ref $bool comparisons or isa checks.
'JSON::PP::Boolean'
'Types::Bool::Impl'
ref $bool
This is not exported. It is meant to be used as a fully qualified name.
$false = Types::Bool::false;
Return the canonical "false" value.
This function has a () prototype and works as a constant (suitable for inlining by the Perl interpreter).
()
$is_bool = Types::Bool::is_bool($value);
Return true if given a Types::Bool object. Return false otherwise.
This function has a ($) prototype.
($)
$bool = Types::Bool::to_bool($value);
Turns a true or false Perl value into Types::Bool::true or Types::Bool::false.
Types::Bool::true
Types::Bool::false
$true = Types::Bool::true;
Return the canonical "true" value.
Types::Bool implements the following methods.
$bool = Types::Bool->new($value);
Creates a new Types::Bool object from a true or false Perl value.
This is similar to Types::Bool::to_bool($value), but "new" produces independent boolean objects while "to_bool" returns the shared "true" and "false" instances.
Types::Bool::to_bool($value)
The use of overload makes this module heavier. See "BUGS" in Types::Serializer.
Original idea and code came from JSON::XS::Boolean written by Marc Lehmann.
Tina Müller inspired me to create this distribution after reading her report on PTS 2018.
When Types::Bool gets loaded, it stops JSON::PP::Boolean module from being loaded, since they are redundant. This prevents subroutines to be redefined and the corresponding warnings. You can set the TYPES_BOOL_NICE environment variable to avoid that behavior.
TYPES_BOOL_NICE
TYPES_BOOL_NICE=1
You can set the TYPES_BOOL_LOUD environment variable to produce explicit warnings on subroutines found on JSON::PP::Boolean package that Types::Bool will skip and accept as they are.
TYPES_BOOL_LOUD
TYPES_BOOL_LOUD=1
JSON::XS
Adriano Ferreira <ferreira@cpan.org>
This software is copyright (c) 2018 by Adriano Ferreira.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Types::Bool, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Types::Bool
CPAN shell
perl -MCPAN -e shell install Types::Bool
For more information on module installation, please visit the detailed CPAN module installation guide.