;
use Readonly;
use Template;
use Template::Provider;
use File::ShareDir qw/dist_dir/;
use JSON qw/decode_json/;
use base qw/Exporter/;
our $VERSION = version->new('0.6.12');
our @EXPORT_OK = q
my ($arg, $value) = split /=/, $file, 2;
$default->{args}->{$arg} = eval { decode_json($value) } || $value;
}
else {
# store the "real" file
pu
params };
return responce($json);
};
sub responce {
my ($json) = @_;
if (params->{callback}) {
return params->{callback} . '(' . encode_json($json) . ');';
}
push_heade
ONS';
push_header 'Access-Control-Allow-Headers' => 'Content-Type';
return encode_json($json);
}
start;
=__END__
=head1 NAME
[% module %] - <One-line description of module's purpose>