File Coverage

lib/Badger/Codec/JSON.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	6	6	100.0
total	21	25	84.0

#========================================================================
#
# Badger::Codec::JSON
#
# DESCRIPTION
#   Codec module for encoding/decoding Base64
#
# AUTHOR
#   Andy Wardley
#
#========================================================================

package Badger::Codec::JSON;

use Badger::Class
    version => 0.01,
    base    => 'Badger::Codec',
    import  => 'class CLASS',
    codecs  => 'utf8';

our ($HAS_CP_JSON_XS, $HAS_JSON_XS, $HAS_JSON);

# Cpanel::JSON::XS is more complete/correct than JSON::XS
eval "require Cpanel::JSON::XS";
$HAS_CP_JSON_XS = $@ ? 0 : 1;

# JSON::XS has bits missing (e.g. allow_bignum)
unless ($HAS_CP_JSON_XS) {
    eval "require JSON::XS";
    $HAS_JSON_XS = $@ ? 0 : 1;
}

# fallback to Perl implementation
unless ($HAS_CP_JSON_XS || $HAS_JSON_XS) {
    eval "require JSON";
    $HAS_JSON = $@ ? 0 : 1;
}

our $MODULE =
    $HAS_CP_JSON_XS ? 'Cpanel::JSON::XS' :
    $HAS_JSON_XS    ? 'JSON::XS' :
    $HAS_JSON       ? 'JSON'     :
    CLASS->error("You don't have JSON, JSON::XS or Cpanel::JSON::XS installed");

our $JSON = $MODULE->new;

sub encode_json {
    $JSON->encode(shift);
}

sub decode_json {
    my $json = shift;
#   $json = encode_utf8($json);
    $JSON->decode($json);
}

sub encode {
    shift;
    goto &encode_json;
}

sub decode {
    shift;
    goto &decode_json;
}

sub encoder {
    \&encode_json;
}

sub decoder {
    \&decode_json;
}

1;


__END__