File Coverage

blib/lib/JSON/XS/Sugar.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	37	37	100.0

package JSON::XS::Sugar;
use base qw(Exporter);

# ABSTRACT: sugar for using JSON::XS

# right now the XS won't work on anything before this
use 5.014000;

use warnings;
use strict;

use Devel::CallChecker 0.003 ();
use Types::Serialiser;

our $VERSION = '1.01';

our @EXPORT_OK;

use constant JSON_TRUE => Types::Serialiser::true;
push @EXPORT_OK, qw(JSON_TRUE);

use constant JSON_FALSE => Types::Serialiser::false;
push @EXPORT_OK, qw(JSON_FALSE);

## no critic (Subroutines::ProhibitSubroutinePrototypes)

sub json_truth($) {
    return $_[0] ? JSON_TRUE : JSON_FALSE;
}
push @EXPORT_OK, qw(json_truth);

push @EXPORT_OK, qw(
    json_number
    json_string
);

# load json_number, json_string from XS
require XSLoader;
XSLoader::load( __PACKAGE__, $VERSION );

1;

__END__