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