File Coverage

lib/MetaPOD/Format/JSON/Decoder/v1.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	27	30	90.0

use strict;
use warnings;

package MetaPOD::Format::JSON::Decoder::v1;
BEGIN {
  $MetaPOD::Format::JSON::Decoder::v1::AUTHORITY = 'cpan:KENTNL';
}
{
  $MetaPOD::Format::JSON::Decoder::v1::VERSION = '0.3.0';
}

# ABSTRACT: C to Structure translation layer


use Moo::Role;
use Try::Tiny qw( try catch );


sub decode {
  my ( $self, $data ) = @_;
  require JSON;
  my $return;
  try {
    $return = JSON->new->decode($data);
  }
  catch {
    require MetaPOD::Exception::Decode::Data;
    MetaPOD::Exception::Decode::Data->throw(
      {
        internal_message   => $_,
        data               => $data,
        previous_exception => $_,
      }
    );
  };
  return $return;
}

1;

__END__