Changeset 4761

Timestamp:

2003-06-23T14:30:15+12:00 (21 years ago)

Author:

mdewsnip

Message:

Copied (from BasPlug.pm) a generic print usage function which works with the $options and $arguments structures added to each plugin.

File:

• trunk/gsdl/perllib/classify/BasClas.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -348 +348 @@
 
 # print_usage should be overridden for any sub-classes
-sub print_usage {
-    print STDERR "
-This classifier has no classifier-specific options
-
-";
-}
+# sub print_usage {
+#     print STDERR "
+# This classifier has no classifier-specific options
+# 
+# ";
+# }
 
 sub new {
@@ -363 +363 @@
     $self->{'outhandle'} = STDERR;
     
-     $self->{'option_list'} = [ $options ];
+    $self->{'option_list'} = [ $options ];
 
     # general options available to all classifiers