Revert "Wimp: Use JSON parser to handle player args"

[videosite.git] / videosite / JSArrayParser.pm

diff --git a/videosite/JSArrayParser.pm b/videosite/JSArrayParser.pm
index cadf8e8..37452fe 100644 (file)
--- a/videosite/JSArrayParser.pm
+++ b/videosite/JSArrayParser.pm
@@ -13,6 +13,7 @@ use strict;
 
 sub new {
     my $class = shift;
+    my %params = @_;
     my $self = {};
 
     if ($class ne __PACKAGE__) {
@@ -21,7 +22,17 @@ sub new {
     }
 
     # Try to find a child object which is available and return that.
-    #
+
+    # See if videosite::JSJSONArrayParser is available
+    eval {
+        require videosite::JSJSONArrayParser;
+    };
+
+    unless($@) {
+        # Available. Return a JSJSONArrayParser object
+        return videosite::JSJSONArrayParser->new(%params);
+    }
+
     # See if videosite::JSLexArrayParser is available
     eval {
         require videosite::JSLexArrayParser;
@@ -29,7 +40,7 @@ sub new {
 
     unless($@) {
         # Available. Return a JSLexArrayParser object
-        return videosite::JSLexArrayParser->new();
+        return videosite::JSLexArrayParser->new(%params);
     }
 
     # See if JSSimleArrayParser is available
@@ -39,7 +50,7 @@ sub new {
 
     unless ($@) {
         # Available. Return a JSSimpleArrayParser object
-        return videosite::JSSimpleArrayParser->new();
+        return videosite::JSSimpleArrayParser->new(%params);
     }
 
     # Nothing available. Return ourselves.