mirror of
https://github.com/overcuriousity/autopsy-flatpak.git
synced 2025-07-06 21:00:22 +00:00
43 lines
810 B
Perl
43 lines
810 B
Perl
package JSON::PP::Boolean;
|
|
|
|
use strict;
|
|
require overload;
|
|
local $^W;
|
|
overload::import('overload',
|
|
"0+" => sub { ${$_[0]} },
|
|
"++" => sub { $_[0] = ${$_[0]} + 1 },
|
|
"--" => sub { $_[0] = ${$_[0]} - 1 },
|
|
fallback => 1,
|
|
);
|
|
|
|
$JSON::PP::Boolean::VERSION = '4.05';
|
|
|
|
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>
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|
|
|
|
=cut
|
|
|