Changeset 17209 for gsdl/trunk/perllib/classify/List.pm

Timestamp:

2008-09-08T12:35:53+12:00 (16 years ago)

Author:

kjdon

Message:

BasClas renamed to BaseClassifier, tidied up constructors

File:

• gsdl/trunk/perllib/classify/List.pm (modified) (3 diffs)

gsdl/trunk/perllib/classify/List.pm

@@ -27 +27 @@
 # to see the options, run "perl -S classinfo.pl List"
 
-use BasClas;
+use BaseClassifier;
 package List;
 
@@ -36 +36 @@
 
 sub BEGIN {
-    @List::ISA = ('BasClas');
+    @List::ISA = ('BaseClassifier');
 }
 
@@ -62 +62 @@
     push(@$classifierslist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = new BasClas($classifierslist, $inputargs, $hashArgOptLists);
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new BaseClassifier($classifierslist, $inputargs, $hashArgOptLists);
+
+    if ($self->{'info_only'}) {
+    # don't worry about any options etc
+    return bless $self, $class;
+    }
 
     # Transfer value from Auto Parsing to the variable name that used in previous GreenStone.