Changeset 17203 for gsdl/trunk/perllib/plugouts/GAPlugout.pm

Timestamp:

2008-09-08T11:21:35+12:00 (16 years ago)

Author:

kjdon

Message:

BasPlugout renamed to BasePlugout. And tidied up the constructors

File:

• gsdl/trunk/perllib/plugouts/GAPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/GAPlugout.pm

@@ -32 +32 @@
 eval {require bytes};
 use util;
-use BasPlugout;
+use BasePlugout;
 use docprint;
 
 sub BEGIN {
-    @GAPlugout::ISA = ('BasPlugout');
+    @GAPlugout::ISA = ('BasePlugout');
 }
 
@@ -51 +51 @@
     push(@$plugoutlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs); 
+    my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists);
  
-   return bless $self, $class;
+    return bless $self, $class;
 }