From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

=begin comment
Fastly API
Via the Fastly API you can perform any of the operations that are possible within the management console, including creating services, domains, and backends, configuring rules or uploading your own application code, as well as account operations such as user administration and billing reports. The API is organized into collections of endpoints that allow manipulation of objects related to Fastly services and accounts. For the most accurate and up-to-date API reference content, visit our [Developer Hub](https://www.fastly.com/documentation/reference/api/)
The version of the API Spec document: 1.0.0
Contact: oss@fastly.com
=end comment
=cut
#
# NOTE: This class is auto generated.
# Do not edit the class manually.
#
require 5.6.0;
use strict;
use utf8;
use Carp qw( croak );
use Log::Any qw($log);
__PACKAGE__->mk_classdata('method_documentation' => {});
sub new {
my $class = shift;
my $api_client;
if ($_[0] && ref $_[0] && ref $_[0] eq 'WebService::Fastly::ApiClient' ) {
$api_client = $_[0];
} else {
$api_client = WebService::Fastly::ApiClient->new(@_);
}
bless { api_client => $api_client }, $class;
}
#
# add_role_permissions
#
# Add permissions to a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
# @param HASH[string,object] $request_body (optional)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
'request_body' => {
data_type => 'HASH[string,object]',
description => '',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'add_role_permissions' } = {
summary => 'Add permissions to a role',
params => $params,
returns => 'object',
};
}
# @return object
#
sub add_role_permissions {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling add_role_permissions");
}
# parse inputs
my $_resource_path = '/roles/{role_id}/permissions';
my $_method = 'POST';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# body params
if ( exists $args{'request_body'}) {
$_body_data = $args{'request_body'};
}
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
#
# create_a_role
#
# Create a role
#
# @param HASH[string,object] $request_body (optional)
{
my $params = {
'request_body' => {
data_type => 'HASH[string,object]',
description => '',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'create_a_role' } = {
summary => 'Create a role',
params => $params,
returns => 'object',
};
}
# @return object
#
sub create_a_role {
my ($self, %args) = @_;
# parse inputs
my $_resource_path = '/roles';
my $_method = 'POST';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
my $_body_data;
# body params
if ( exists $args{'request_body'}) {
$_body_data = $args{'request_body'};
}
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
#
# delete_a_role
#
# Delete a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'delete_a_role' } = {
summary => 'Delete a role',
params => $params,
returns => undef,
};
}
# @return void
#
sub delete_a_role {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling delete_a_role");
}
# parse inputs
my $_resource_path = '/roles/{role_id}';
my $_method = 'DELETE';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept();
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
$self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
return;
}
#
# get_a_role
#
# Get a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'get_a_role' } = {
summary => 'Get a role',
params => $params,
returns => 'object',
};
}
# @return object
#
sub get_a_role {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling get_a_role");
}
# parse inputs
my $_resource_path = '/roles/{role_id}';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
#
# list_role_permissions
#
# List permissions in a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'list_role_permissions' } = {
summary => 'List permissions in a role',
params => $params,
returns => 'object',
};
}
# @return object
#
sub list_role_permissions {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling list_role_permissions");
}
# parse inputs
my $_resource_path = '/roles/{role_id}/permissions';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
#
# list_roles
#
# List roles
#
# @param int $per_page Number of records per page. (optional, default to 20)
# @param int $page Current page. (optional)
{
my $params = {
'per_page' => {
data_type => 'int',
description => 'Number of records per page.',
required => '0',
},
'page' => {
data_type => 'int',
description => 'Current page.',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'list_roles' } = {
summary => 'List roles',
params => $params,
returns => 'object',
};
}
# @return object
#
sub list_roles {
my ($self, %args) = @_;
# parse inputs
my $_resource_path = '/roles';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# query params
if ( exists $args{'per_page'}) {
$query_params->{'per_page'} = $self->{api_client}->to_query_value($args{'per_page'});
}
# query params
if ( exists $args{'page'}) {
$query_params->{'page'} = $self->{api_client}->to_query_value($args{'page'});
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
#
# remove_role_permissions
#
# Remove permissions from a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
# @param HASH[string,object] $request_body (optional)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
'request_body' => {
data_type => 'HASH[string,object]',
description => '',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'remove_role_permissions' } = {
summary => 'Remove permissions from a role',
params => $params,
returns => undef,
};
}
# @return void
#
sub remove_role_permissions {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling remove_role_permissions");
}
# parse inputs
my $_resource_path = '/roles/{role_id}/permissions';
my $_method = 'DELETE';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept();
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# body params
if ( exists $args{'request_body'}) {
$_body_data = $args{'request_body'};
}
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
$self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
return;
}
#
# update_a_role
#
# Update a role
#
# @param string $role_id Alphanumeric string identifying the role. (required)
# @param HASH[string,object] $request_body (optional)
{
my $params = {
'role_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying the role.',
required => '1',
},
'request_body' => {
data_type => 'HASH[string,object]',
description => '',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'update_a_role' } = {
summary => 'Update a role',
params => $params,
returns => 'object',
};
}
# @return object
#
sub update_a_role {
my ($self, %args) = @_;
# verify the required parameter 'role_id' is set
unless (exists $args{'role_id'}) {
croak("Missing the required parameter 'role_id' when calling update_a_role");
}
# parse inputs
my $_resource_path = '/roles/{role_id}';
my $_method = 'PATCH';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
# path params
if ( exists $args{'role_id'}) {
my $_base_variable = "{" . "role_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'role_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# body params
if ( exists $args{'request_body'}) {
$_body_data = $args{'request_body'};
}
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('object', $response);
return $_response_object;
}
1;