#
# A helper class for parsing textual JS hashes into perl 
# hashes
#
# This parser is based on simple regexps.
#

package videosite::JSSimpleArrayParser;

use videosite::JSArrayParser;
@ISA = qw(videosite::JSArrayParser);

use strict;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new();

    return bless($self, $class);
}

sub parse {
    my $self = shift;
    my $s = shift;
    my $ret;
  
    if ($s =~ /{(.*)}/) {
        my $str = $1;
        while ($str =~ /"(\S+)":\s+"([^"]*)"(,\s*)?/g) {
          $ret->{$1} = $2;
        }
    } else {
        return undef;
    }
    return $ret;
}

1;