diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm b/Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm new file mode 100644 index 00000000000..f1c9d526790 --- /dev/null +++ b/Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm @@ -0,0 +1,36 @@ +package # This is JSON::backportPP + JSON::PP::Boolean; + +use strict; +use overload ( + "0+" => sub { ${$_[0]} }, + "++" => sub { $_[0] = ${$_[0]} + 1 }, + "--" => sub { $_[0] = ${$_[0]} - 1 }, + fallback => 1, +); + +$JSON::backportPP::Boolean::VERSION = '2.94'; + +1; + +__END__ + +=head1 NAME + +JSON::PP::Boolean - dummy module providing JSON::PP::Boolean + +=head1 SYNOPSIS + + # do not "use" yourself + +=head1 DESCRIPTION + +This module exists only to provide overload resolution for Storable and similar modules. See +L<JSON::PP> for more info about this class. + +=head1 AUTHOR + +This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de> + +=cut + |