1package JSON::PP::Boolean;
2
3use strict;
4use overload (
5    "0+"     => sub { ${$_[0]} },
6    "++"     => sub { $_[0] = ${$_[0]} + 1 },
7    "--"     => sub { $_[0] = ${$_[0]} - 1 },
8    fallback => 1,
9);
10
11$JSON::PP::Boolean::VERSION = '2.97001';
12
131;
14
15__END__
16
17=head1 NAME
18
19JSON::PP::Boolean - dummy module providing JSON::PP::Boolean
20
21=head1 SYNOPSIS
22
23 # do not "use" yourself
24
25=head1 DESCRIPTION
26
27This module exists only to provide overload resolution for Storable and similar modules. See
28L<JSON::PP> for more info about this class.
29
30=head1 AUTHOR
31
32This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de>
33
34=cut
35
36