File Coverage

blib/lib/PLS/JSON.pm

Criterion	Covered	Total	%
statement	16	22	72.7
branch	1	4	25.0
condition	2	9	22.2
subroutine	4	5	80.0
pod	0	1	0.0
total	23	41	56.1

package PLS::JSON;

use strict;
use warnings;

use Exporter qw(import);

my $package;

BEGIN
{
    if ($INC{'Cpanel/JSON/XS.pm'} or eval { require Cpanel::JSON::XS; 1 })
    {
        $package = 'Cpanel::JSON::XS';
    }
    elsif (($INC{'JSON/XS.pm'} or eval { require JSON::XS; 1 }) and eval { JSON::XS->VERSION(3.0); 1 })
    {
        $package = 'JSON::XS';
    }
    else
    {
        require JSON::PP;
        $package = 'JSON::PP';
    }

    $package->import(qw(encode_json decode_json));

    *PLS::JSON::true  = $package->can('true');
    *PLS::JSON::false = $package->can('false');
} ## end BEGIN

our @EXPORT = qw(encode_json decode_json);    ## no critic (ProhibitAutomaticExportation)

sub new
{
    return $package->new();
}

1;