sub new {
my $class = shift;
+ my %params = @_;
my $self = {};
if ($class ne __PACKAGE__) {
}
# Try to find a child object which is available and return that.
- #
- # See if videosite::JSLexArrayParser is available
- eval {
- require videosite::JSLexArrayParser;
- };
-
- unless($@) {
- # Available. Return a JSLexArrayParser object
- return videosite::JSLexArrayParser->new();
- }
-
- # See if JSSimleArrayParser is available
- eval {
- require videosite::JSSimpleArrayParser;
- };
-
- unless ($@) {
- # Available. Return a JSSimpleArrayParser object
- return videosite::JSSimpleArrayParser->new();
- }
- # Nothing available. Return ourselves.
- return bless($self, $class);
+ require videosite::JSJSONArrayParser;
+ return videosite::JSJSONArrayParser->new(%params);
}
sub parse {