Lines Matching refs:args
154 my $args = shift;
157 main::VERSION_MESSAGE($h, __PACKAGE__, $VERSION, $args);
173 my $args = shift;
176 main::HELP_MESSAGE($h, __PACKAGE__, $VERSION, $args);
178 my (@witharg) = ($args =~ /(\S)\s*:/g);
179 my (@rest) = ($args =~ /([^\s:])(?!\s*:)/g);
220 my (@args,$first,$rest,$exit);
225 @args = split( / */, $argumentative );
234 if (defined($args[$pos+1]) and ($args[$pos+1] eq ':')) {