view release on metacpan or  search on metacpan

lib/PeakForest/REST_Client/ApiClient.pm  view on Meta::CPAN

    my $prefix = $self->{config}{api_key_prefix}{$key_name};
    return $prefix ? "$prefix $api_key" : $api_key;
}

# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
    my ($self, $header_params, $query_params, $auth_settings) = @_;

    return $self->_global_auth_setup($header_params, $query_params)
        unless $auth_settings && @$auth_settings;

    # one endpoint can have more than 1 auth settings
    foreach my $auth (@$auth_settings) {
        # determine which one to use
        if (!defined($auth)) {
            # TODO show warning about auth setting not defined

metabolomics-references/utils/update_resources.pl  view on Meta::CPAN

=head2 METHOD updateKnapsack

	## Description : update Knapsack database on its web portal by crawling
	## Input : $var3
	## Output : $var4
	## Usage : my ( $var4 ) = updateKnapsack ( $var3 ) ;
	
=cut
## START of SUB
sub updateKnapsack {
    ## Retrieve Values
    
    my ( $dbFile,  ) = @_;
    my ( $lastID, $nbEntries ) = ( 0, 0 ) ;
    
    ## based on http://www.knapsackfamily.com/knapsack_core/information.php?sname=C_ID&word=C00000001
    
    ## Get Last id in last CSV file version
    
    print "[INFO] Parsing Knapsack current version...\n" ;