view release on metacpan or  search on metacpan

PBS/PBSConfig.pm  view on Meta::CPAN

use constant PARSE_SWITCHES_IGNORE_ERROR => 1 ;

sub ParseSwitches
{
my ($pbs_config, $switches_to_parse, $ignore_error) = @_ ;
$pbs_config ||= {} ;

my $success_message = '' ;

local @ARGV = ( # default colors
		  '-ci'  => 'green'
		, '-ci2' => 'bold blue'
		, '-cw'  => 'yellow'
		, '-cw2' => 'bold yellow'
		, '-ce'  => 'red'
		, '-cd'  => 'magenta'
		, '-cs'  => 'bold green'
		, '-cu'  => 'cyan'
		) ;
		

PBS/Prf.pm  view on Meta::CPAN

}

#-------------------------------------------------------------------------------


sub AddCommandLineSwitches
{
my $caller = caller() ;
my @switches = @_ ;

local @ARGV = map
		{
		my $key_value = $_ ;
		
		$key_value =~ s/^\s*// ; $key_value =~ s/\s*$// ;
		if ($key_value =~ /([^ ]+)\ (.*)/)
			{
			("$1", $2) ;
			}
		else
			{