- Add a fallback parser in case Parse::Lex is not available

[videosite.git] / videosite / JSLexArrayParser.pm

diff --git a/videosite/JSLexArrayParser.pm b/videosite/JSLexArrayParser.pm
index 20e6e0e..f250d61 100644 (file)
--- a/videosite/JSLexArrayParser.pm
+++ b/videosite/JSLexArrayParser.pm
@@ -6,7 +6,10 @@
 # package. Use 'yapp -m videosite::jsarray -s jsarray.yp' to regenerate
 #
 
-package videosite::JSArrayParser;
+package videosite::JSLexArrayParser;
+
+use videosite::JSArrayParser;
+@ISA = qw(videosite::JSArrayParser);
 
 use Parse::Lex;
 use videosite::jsarray;
@@ -23,10 +26,10 @@ my @tokens = (
 
 sub new {
     my $class = shift;
-    my $self = {
-        '_PARSER' => videosite::jsarray->new(),
-        '_LEXER' => Parse::Lex->new(@tokens),
-    };
+    my $self = $class->SUPER::new();
+
+    $self->{'_PARSER'} = videosite::jsarray->new();
+    $self->{'_LEXER'} = Parse::Lex->new(@tokens);
 
     return bless($self, $class);
 }