require
5.6.0;
use
JSON
qw(decode_json)
;
use
base (
"Class::Accessor"
,
"Class::Data::Inheritable"
);
__PACKAGE__->mk_classdata(
'attribute_map'
=> {});
__PACKAGE__->mk_classdata(
'swagger_types'
=> {});
__PACKAGE__->mk_classdata(
'method_documentation'
=> {});
__PACKAGE__->mk_classdata(
'class_documentation'
=> {});
sub
new {
my
(
$class
,
%args
) =
@_
;
my
$self
=
bless
{},
$class
;
foreach
my
$attribute
(
keys
%{
$class
->attribute_map}) {
my
$args_key
=
$class
->attribute_map->{
$attribute
};
$self
->
$attribute
(
$args
{
$args_key
} );
}
return
$self
;
}
sub
to_hash {
return
decode_json(JSON->new->convert_blessed->encode(
shift
));
}
sub
TO_JSON {
my
$self
=
shift
;
my
$_data
= {};
foreach
my
$_key
(
keys
%{
$self
->attribute_map}) {
if
(
defined
$self
->{
$_key
}) {
$_data
->{
$self
->attribute_map->{
$_key
}} =
$self
->{
$_key
};
}
}
return
$_data
;
}
sub
from_hash {
my
(
$self
,
$hash
) =
@_
;
while
(
my
(
$_key
,
$_type
) =
each
%{
$self
->swagger_types} ) {
my
$_json_attribute
=
$self
->attribute_map->{
$_key
};
if
(
$_type
=~ /^array\[/i) {
my
$_subclass
=
substr
(
$_type
, 6, -1);
my
@_array
= ();
foreach
my
$_element
(@{
$hash
->{
$_json_attribute
}}) {
push
@_array
,
$self
->_deserialize(
$_subclass
,
$_element
);
}
$self
->{
$_key
} = \
@_array
;
}
elsif
(
exists
$hash
->{
$_json_attribute
}) {
$self
->{
$_key
} =
$self
->_deserialize(
$_type
,
$hash
->{
$_json_attribute
});
}
else
{
$log
->debugf(
"Warning: %s (%s) does not exist in input hash\n"
,
$_key
,
$_json_attribute
);
}
}
return
$self
;
}
sub
_deserialize {
my
(
$self
,
$type
,
$data
) =
@_
;
$log
->debugf(
"deserializing %s with %s"
,Dumper(
$data
),
$type
);
if
(
$type
eq
'DateTime'
) {
return
DateTime->from_epoch(
epoch
=> str2time(
$data
));
}
elsif
(
grep
( /^
$type
$/, (
'int'
,
'double'
,
'string'
,
'boolean'
))) {
return
$data
;
}
else
{
my
$_instance
=
eval
"AsposeCellsCloud::Object::$type->new()"
;
return
$_instance
->from_hash(
$data
);
}
}
__PACKAGE__->class_documentation({
description
=>
'Represents the Save Response.'
,
class
=>
'SaveResponse'
,
required
=> [],
} );
__PACKAGE__->method_documentation({
'save_result'
=> {
datatype
=>
'SaveResult'
,
base_name
=>
'SaveResult'
,
description
=>
''
,
format
=>
''
,
read_only
=>
''
,
},
'code'
=> {
datatype
=>
'int'
,
base_name
=>
'Code'
,
description
=>
''
,
format
=>
''
,
read_only
=>
''
,
},
'status'
=> {
datatype
=>
'string'
,
base_name
=>
'Status'
,
description
=>
''
,
format
=>
''
,
read_only
=>
''
,
},
});
__PACKAGE__->swagger_types( {
'save_result'
=>
'SaveResult'
,
'code'
=>
'int'
,
'status'
=>
'string'
} );
__PACKAGE__->attribute_map( {
'save_result'
=>
'SaveResult'
,
'code'
=>
'Code'
,
'status'
=>
'Status'
} );
__PACKAGE__->mk_accessors(
keys
%{__PACKAGE__->attribute_map});
1;