File Coverage

lib/Smartcat/Client/Object/DirectoryModel.pm
Criterion Covered Total %
statement 40 69 57.9
branch 0 10 0.0
condition n/a
subroutine 12 16 75.0
pod 1 4 25.0
total 53 99 53.5


line stmt bran cond sub pod time code
1              
2             =begin comment
3              
4             Smartcat Integration API
5              
6             No description provided (generated by Swagger Codegen https://github.com/swagger-api/swagger-codegen)
7              
8             OpenAPI spec version: v1
9              
10             Generated by: https://github.com/swagger-api/swagger-codegen.git
11              
12             =end comment
13              
14             =cut
15              
16             #
17             # NOTE: This class is auto generated by the swagger code generator program.
18             # Do not edit the class manually.
19             # Ref: https://github.com/swagger-api/swagger-codegen
20             #
21             package Smartcat::Client::Object::DirectoryModel;
22              
23             require 5.6.0;
24 1     1   780 use strict;
  1         2  
  1         29  
25 1     1   5 use warnings;
  1         1  
  1         24  
26 1     1   582 use utf8;
  1         14  
  1         6  
27 1     1   632 use JSON qw(decode_json);
  1         8108  
  1         5  
28 1     1   698 use Data::Dumper;
  1         6349  
  1         62  
29 1     1   501 use Module::Runtime qw(use_module);
  1         1759  
  1         6  
30 1     1   531 use Log::Any qw($log);
  1         8472  
  1         5  
31 1     1   2580 use Date::Parse;
  1         7767  
  1         117  
32 1     1   853 use DateTime;
  1         510631  
  1         58  
33              
34 1     1   518 use Smartcat::Client::Object::DirectoryItemModel;
  1         4  
  1         17  
35              
36 1     1   62 use base ( "Class::Accessor", "Class::Data::Inheritable" );
  1         2  
  1         808  
37              
38             #
39             #
40             #
41             # NOTE: This class is auto generated by the swagger code generator program. Do not edit the class manually.
42             # REF: https://github.com/swagger-api/swagger-codegen
43             #
44              
45             =begin comment
46              
47             Smartcat Integration API
48              
49             No description provided (generated by Swagger Codegen https://github.com/swagger-api/swagger-codegen)
50              
51             OpenAPI spec version: v1
52              
53             Generated by: https://github.com/swagger-api/swagger-codegen.git
54              
55             =end comment
56              
57             =cut
58              
59             #
60             # NOTE: This class is auto generated by the swagger code generator program.
61             # Do not edit the class manually.
62             # Ref: https://github.com/swagger-api/swagger-codegen
63             #
64             __PACKAGE__->mk_classdata( 'attribute_map' => {} );
65             __PACKAGE__->mk_classdata( 'swagger_types' => {} );
66             __PACKAGE__->mk_classdata( 'method_documentation' => {} );
67             __PACKAGE__->mk_classdata( 'class_documentation' => {} );
68              
69             # new object
70             sub new {
71 1     1 1 641 my ( $class, %args ) = @_;
72              
73 1         3 my $self = bless {}, $class;
74              
75 1         2 foreach my $attribute ( keys %{ $class->attribute_map } ) {
  1         9  
76 2         31 my $args_key = $class->attribute_map->{$attribute};
77 2         18 $self->$attribute( $args{$args_key} );
78             }
79              
80 1         13 return $self;
81             }
82              
83             # return perl hash
84             sub to_hash {
85 0     0 0   return decode_json( JSON->new->convert_blessed->encode(shift) );
86             }
87              
88             # used by JSON for serialization
89             sub TO_JSON {
90 0     0 0   my $self = shift;
91 0           my $_data = {};
92 0           foreach my $_key ( keys %{ $self->attribute_map } ) {
  0            
93 0 0         if ( defined $self->{$_key} ) {
94 0           $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
95             }
96             }
97 0           return $_data;
98             }
99              
100             # from Perl hashref
101             sub from_hash {
102 0     0 0   my ( $self, $hash ) = @_;
103              
104             # loop through attributes and use swagger_types to deserialize the data
105 0           while ( my ( $_key, $_type ) = each %{ $self->swagger_types } ) {
  0            
106 0           my $_json_attribute = $self->attribute_map->{$_key};
107 0 0         if ( $_type =~ /^array\[/i ) { # array
    0          
108 0           my $_subclass = substr( $_type, 6, -1 );
109 0           my @_array = ();
110 0           foreach my $_element ( @{ $hash->{$_json_attribute} } ) {
  0            
111 0           push @_array, $self->_deserialize( $_subclass, $_element );
112             }
113 0           $self->{$_key} = \@_array;
114             }
115             elsif ( exists $hash->{$_json_attribute} )
116             { #hash(model), primitive, datetime
117             $self->{$_key} =
118 0           $self->_deserialize( $_type, $hash->{$_json_attribute} );
119             }
120             else {
121 0           $log->debugf( "Warning: %s (%s) does not exist in input hash\n",
122             $_key, $_json_attribute );
123             }
124             }
125              
126 0           return $self;
127             }
128              
129             # deserialize non-array data
130             sub _deserialize {
131 0     0     my ( $self, $type, $data ) = @_;
132 0           $log->debugf( "deserializing %s with %s", Dumper($data), $type );
133              
134 0 0         if ( $type eq 'DateTime' ) {
    0          
135 0           return DateTime->from_epoch( epoch => str2time($data) );
136             }
137             elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
138 0           return $data;
139             }
140             else { # hash(model)
141 0           my $_instance = eval "Smartcat::Client::Object::$type->new()";
142 0           return $_instance->from_hash($data);
143             }
144             }
145              
146             __PACKAGE__->class_documentation(
147             {
148             description => '',
149             class => 'DirectoryModel',
150             required => [], # TODO
151             }
152             );
153              
154             __PACKAGE__->method_documentation(
155             {
156             'type' => {
157             datatype => 'string',
158             base_name => 'type',
159             description => '',
160             format => '',
161             read_only => '',
162             },
163             'items' => {
164             datatype => 'ARRAY[DirectoryItemModel]',
165             base_name => 'items',
166             description => '',
167             format => '',
168             read_only => '',
169             },
170             }
171             );
172              
173             __PACKAGE__->swagger_types(
174             {
175             'type' => 'string',
176             'items' => 'ARRAY[DirectoryItemModel]'
177             }
178             );
179              
180             __PACKAGE__->attribute_map(
181             {
182             'type' => 'type',
183             'items' => 'items'
184             }
185             );
186              
187             __PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
188              
189             1;