package GetArg
@ISA = qw()

sub App
return shift->{'Application'};

sub Application
return shift->{'Application'};

sub SetApplication
sub SetApplication { my ($this,$app)=
return $this->{'Application'} = $app;

sub AllowedArgs
return shift->{'pAllowedArgs'};

sub Explanations
return shift->{'pExplanations'};

sub ArgArray
return shift->{'pArgArray'};

sub FileNameArray
return shift->{'pFileNameArray'};

sub AppName
return shift->{'AppName'};

sub SetAppName
my ($this, $name) = @_;
return $this->{'AppName'} = $name;

sub CGIForm
my ($this) = @_;
return $this->{'CGIForm'};

sub SetCGIForm
sub SetCGIForm { my ($this,$f)=
return $this->{'CGIForm'} = $f;

sub pIn
return shift->{pIn};

sub GetArgHash
my ($this) = @_;
return %Args;

sub MergeArgs
my ($this) = @_;
return \%hash;

sub new
my ($module, $app) = @_;
return $this;

sub DESTROY
my $this = shift;

sub InitializeArgs
my ($this) = @_;

sub InitializeFiles
my ($this) = @_;

sub parseInput
my ($this, $charcode) = @_;
return $this->{pIn} if(defined $this->{pIn});
return $this->{pIn} = \%in;

sub Usage
my ($this) = @_;

sub SetCheckAllowedArgs
my ($this, $f) = @_;
return $this->{CheckAllowedArgs} = $f;

sub CheckAllowedArgs
my ($this) = @_;
return $this->{CheckAllowedArgs};

sub IsIncluded
my ($this, $varname) = @_;
return 1 if($varname eq $s);
return 1 if($varname =~ /^$s$/i);
return 0;

sub BuildCommandLine
my ($this) = @_;
return $command;

sub ShowArgs
my ($this) = @_;

sub SetArgument
my ($this, $varname, $val) = @_;
return undef unless($varname);
return $args->{$varname} = $val;

sub GetGetArg
my ($this, $varname0) = @_;
return $val if(defined $val);
return $val if(defined $val);
return $pFiles->[$varname0];
return $val;

sub GetFileNameArray
my ($this, $varname) = @_;
return @$files;

sub AddArgument
my ($this, $arg, $explanation, $defval) = @_;

sub Read
my ($this, $pArgs, $StopFlag) = @_;
return -1;
return 1;