Changeset 17209 for gsdl/trunk/perllib/classify/AZList.pm
- Timestamp:
- 2008-09-08T12:35:53+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZList.pm
r15891 r17209 28 28 package AZList; 29 29 30 use Bas Clas;30 use BaseClassifier; 31 31 use sorttools; 32 32 … … 35 35 36 36 sub BEGIN { 37 @AZList::ISA = ('Bas Clas');37 @AZList::ISA = ('BaseClassifier'); 38 38 } 39 39 … … 68 68 push(@$classifierslist, $class); 69 69 70 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}71 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};72 73 my $self = new Bas Clas($classifierslist, $inputargs, $hashArgOptLists);70 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 71 push(@{$hashArgOptLists->{"OptList"}},$options); 72 73 my $self = new BaseClassifier($classifierslist, $inputargs, $hashArgOptLists); 74 74 75 75 if ($self->{'info_only'}) {
Note:
See TracChangeset
for help on using the changeset viewer.