package videosite::JSJSONArrayParser;
use videosite::JSArrayParser;
-use JSON;
+use JSON -support_by_pp;
@ISA = qw(videosite::JSArrayParser);
use strict;
sub parse {
my $self = shift;
my $s = shift;
+ my $j = JSON->new();
- return decode_json($s);
+ return $j->loose->allow_barekey()->allow_singlequote()->decode($s);
}
1;