1package JSON::PP::Boolean;
2
3use strict;
4require overload;
5local $^W;
6overload::import('overload',
7    "0+"     => sub { ${$_[0]} },
8    "++"     => sub { $_[0] = ${$_[0]} + 1 },
9    "--"     => sub { $_[0] = ${$_[0]} - 1 },
10    fallback => 1,
11);
12
13$JSON::PP::Boolean::VERSION = '4.04';
14
151;
16
17__END__
18
19=head1 NAME
20
21JSON::PP::Boolean - dummy module providing JSON::PP::Boolean
22
23=head1 SYNOPSIS
24
25 # do not "use" yourself
26
27=head1 DESCRIPTION
28
29This module exists only to provide overload resolution for Storable and similar modules. See
30L<JSON::PP> for more info about this class.
31
32=head1 AUTHOR
33
34This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de>
35
36=head1 LICENSE
37
38This library is free software; you can redistribute it and/or modify
39it under the same terms as Perl itself.
40
41=cut
42
43