Yet Another CPAN Grep

Data-Serializer-JSON-MaybeXS ( B/BL/BLUEFEET/Data-Serializer-JSON-MaybeXS-0.03.tar.gz, BLUEFEET, 2021; MetaCPAN )

Data-Serializer-JSON-MaybeXS/lib/Data/Serializer/JSON/MaybeXS.pm ( view source; MetaCPAN )

package Data::Serializer::JSON::MaybeXS;
use 5.008001;
use strict;
use warnings;
our $VERSION = '0.03';

BEGIN { @Data::Serializer::JSON::MaybeXS::ISA = qw(Data::Serializer) }

# This code was pretty

izer::JSON.

use JSON::MaybeXS qw();
use vars qw(@ISA);

sub json {
    my ($self) = @_;

    $self->{json} ||= JSON::MaybeXS->new(
        %{ $self->{options} },
    );

    return $self->{json};
}

json->encode( $data );
}

sub deserialize {
    my ($self, $json) = @_;
    return $self->json->decode( $json );
}

1;
__END__

=head1 NAME

Data::Serializer::JSON::MaybeXS - Serialize data using JSON