summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/JSON/backportPP/Boolean.pm36
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
+