view release on metacpan or  search on metacpan

lib/App/Term/Jump.pm  view on Meta::CPAN

=item * \%options - options parsed from the command line

=item * \@command_line_arguments - arguments parsed from the command line

=back

I<Exceptions> - invalid options 

=cut

local @ARGV = @_ ;

my %options = (ignore_path => []) ;

$options{db_location} = defined $ENV{APP_TERM_JUMP_DB} ? $ENV{APP_TERM_JUMP_DB} : home() . '/.jump_db' ;
$options{config_location} = defined $ENV{APP_TERM_JUMP_CONFIG} ? $ENV{APP_TERM_JUMP_CONFIG} : home() . '/.jump_config'  ;

%options = ( %options, %{ get_config($options{config_location}) } ) ;

die 'Error parsing options!' unless 
	GetOptions