#!/usr/bin/perl
use JSON::Path;
$json = q( [ { "obj1": "one" }, { "obj2": "two" } ] );
$perl = [ { "obj1" => "one" }, { "obj2" => "two" } ];

$json_path = JSON::Path->new( q($[0:]) );

print "ref: " . ref( $json_path->values( $json ) ) . "\n";

@arr = $json_path->values( $json );
print "num (w/o array):" . scalar( $json_path->values( $json ) ) . "\n";
print "num (w array):" . scalar( @arr ) . "\n";
print "ref: " . ref( $perl ) . "\n";

##</code><code>##

ref: HASH
num (w/o array):HASH(0x1baf0f0)
num (w array):2
ref: ARRAY