BmltClient-ApiClient

 view release on metacpan or  search on metacpan

lib/BmltClient/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

lib/BmltClient/RootServerApi.pm  view on Meta::CPAN

    },
    };
    __PACKAGE__->method_documentation->{ 'update_format' } = {
        summary => 'Updates a format',
        params => $params,
        returns => undef,
        };
}
# @return void
#
sub update_format {
    my ($self, %args) = @_;

    # verify the required parameter 'format_id' is set
    unless (exists $args{'format_id'}) {
      croak("Missing the required parameter 'format_id' when calling update_format");
    }

    # verify the required parameter 'format_update' is set
    unless (exists $args{'format_update'}) {
      croak("Missing the required parameter 'format_update' when calling update_format");

lib/BmltClient/RootServerApi.pm  view on Meta::CPAN

    },
    };
    __PACKAGE__->method_documentation->{ 'update_meeting' } = {
        summary => 'Updates a meeting',
        params => $params,
        returns => undef,
        };
}
# @return void
#
sub update_meeting {
    my ($self, %args) = @_;

    # verify the required parameter 'meeting_id' is set
    unless (exists $args{'meeting_id'}) {
      croak("Missing the required parameter 'meeting_id' when calling update_meeting");
    }

    # verify the required parameter 'meeting_update' is set
    unless (exists $args{'meeting_update'}) {
      croak("Missing the required parameter 'meeting_update' when calling update_meeting");

lib/BmltClient/RootServerApi.pm  view on Meta::CPAN

    },
    };
    __PACKAGE__->method_documentation->{ 'update_service_body' } = {
        summary => 'Updates a Service Body',
        params => $params,
        returns => undef,
        };
}
# @return void
#
sub update_service_body {
    my ($self, %args) = @_;

    # verify the required parameter 'service_body_id' is set
    unless (exists $args{'service_body_id'}) {
      croak("Missing the required parameter 'service_body_id' when calling update_service_body");
    }

    # verify the required parameter 'service_body_update' is set
    unless (exists $args{'service_body_update'}) {
      croak("Missing the required parameter 'service_body_update' when calling update_service_body");

lib/BmltClient/RootServerApi.pm  view on Meta::CPAN

    },
    };
    __PACKAGE__->method_documentation->{ 'update_user' } = {
        summary => 'Update single user',
        params => $params,
        returns => undef,
        };
}
# @return void
#
sub update_user {
    my ($self, %args) = @_;

    # verify the required parameter 'user_id' is set
    unless (exists $args{'user_id'}) {
      croak("Missing the required parameter 'user_id' when calling update_user");
    }

    # verify the required parameter 'user_update' is set
    unless (exists $args{'user_update'}) {
      croak("Missing the required parameter 'user_update' when calling update_user");