Cloud::Object::AlphaInverseEffect;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
$args_key } );
}
$self->{ type } = 'AlphaInverse';
return $self;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->a
eSlidesCloud::Object::PatternFill;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
rgs{ $args_key } );
}
$self->{ type } = 'Pattern';
return $self;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->a
loud::Object::OrderedMergeRequest;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
bute};
$self->$attribute( $args{ $args_key } );
}
return $self;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->a
oseSlidesCloud::Object::TextItems;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
bute};
$self->$attribute( $args{ $args_key } );
}
return $self;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->a
oseSlidesCloud::Object::FilesList;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::
bute};
$self->$attribute( $args{ $args_key } );
}
return $self;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->a
se;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
use Carp;
use Module::Runtime qw(use_module);
use Log::Any qw
ody_data = decode_json(JSON->new->convert_blessed->encode($body_data));
}
if (ref $body_data eq "HASH") {
$body_data = to_json($body_data); # model to json string
}
ition: form-data; name=\"data\"\r\n";
$_body_data = $_body_data . "Content-Type: text/json\r\n";
$_body_data = $_body_data . "\r\n";
$_body_data = $_body_data . $bo