File Coverage

blib/lib/WWW/Kickstarter/JsonParser/JsonXs.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	33	60.6

package WWW::Kickstarter::JsonParser::JsonXs;

use strict;
use warnings;
no autovivification;


use JSON::XS                qw( );
use WWW::Kickstarter::Error qw( my_croak );


sub new {
   my ($class, %opts) = @_;

   if (my @unrecognized = keys(%opts)) {
      my_croak(400, "Unrecognized parameters @unrecognized");
   }

   my $self = bless({}, $class);
   $self->{json_parser} = JSON::XS->new->utf8;
   return $self;
}


sub decode { return $_[0]{json_parser}->decode($_[1]) }


1;


__END__