The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg;
BEGIN {
    $pkg = 'Catmandu::Importer::JSON';
    use_ok $pkg;
}
require_ok $pkg;

my $data = [
   {name=>'Patrick',age=>'39'},
   {name=>'Nicolas',age=>'34'},
];

my $json = <<EOF;
{"name":"Patrick","age":"39"}
{"name":"Nicolas","age":"34"}
EOF

my $importer = $pkg->new(file => \$json);

isa_ok $importer, $pkg;

is_deeply $importer->to_array, $data;

done_testing 4;