2 # A helper class for parsing textual JS hashes into perl
5 # This parser is based on the perl JSON module
8 package videosite::JSJSONArrayParser;
10 use videosite::JSArrayParser;
11 use JSON -support_by_pp;
12 @ISA = qw(videosite::JSArrayParser);
18 my $self = $class->SUPER::new();
20 return bless($self, $class);
28 return $j->loose->allow_barekey()->allow_singlequote()->decode($s);