summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP/Boolean.pm35
1 files changed, 35 insertions, 0 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP/Boolean.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP/Boolean.pm
new file mode 100644
index 0000000000..1d1c5c485c
--- /dev/null
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/JSON/PP/Boolean.pm
@@ -0,0 +1,35 @@
+package JSON::PP::Boolean;
+
+use strict;
+use overload (
+ "0+" => sub { ${$_[0]} },
+ "++" => sub { $_[0] = ${$_[0]} + 1 },
+ "--" => sub { $_[0] = ${$_[0]} - 1 },
+ fallback => 1,
+);
+
+$JSON::PP::Boolean::VERSION = '2.97001';
+
+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
+