Changeset 16699


Ignore:
Timestamp:
08/11/08 14:07:03 (13 years ago)
Author:
kjdon
Message:

added auxiliary parameter to new - needed if you want to do new without parsing the arguments - ie want to inherit from a plugin to get the methods and arguments, but its not in the direct inheritance line

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ReadTextFile.pm

    r16667 r16699  
    8585sub new {
    8686    my $class = shift (@_);
    87     my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
     87    my ($pluginlist,$inputargs,$hashArgOptLists, $auxiliary) = @_;
    8888    push(@$pluginlist, $class);
    8989
     
    9191    push(@{$hashArgOptLists->{"OptList"}},$options);
    9292
    93     my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists);
     93    my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists, $auxiliary);
    9494
    9595    return bless $self, $class;
Note: See TracChangeset for help on using the changeset viewer.