2 # A helper class for parsing textual JS hashes into perl
5 # This parser is based on simple regexps.
8 package videosite::JSSimpleArrayParser;
10 use videosite::JSArrayParser;
11 @ISA = qw(videosite::JSArrayParser);
17 my $self = $class->SUPER::new();
19 return bless($self, $class);
29 while ($str =~ /"(\S+)":\s+"([^"]*)"(,\s*)?/g) {