File Coverage

blib/lib/AsposeSlidesCloud/Object/DocumentProperties.pm
Criterion Covered Total %
statement 30 35 85.7
branch n/a
condition n/a
subroutine 10 13 76.9
pod 0 3 0.0
total 40 51 78.4


line stmt bran cond sub pod time code
1             package AsposeSlidesCloud::Object::DocumentProperties;
2              
3             require 5.6.0;
4 1     1   502 use strict;
  1         2  
  1         28  
5 1     1   5 use warnings;
  1         2  
  1         31  
6 1     1   5 use utf8;
  1         2  
  1         5  
7 1     1   28 use JSON qw(decode_json);
  1         2  
  1         4  
8 1     1   104 use Data::Dumper;
  1         3  
  1         67  
9 1     1   7 use Module::Runtime qw(use_module);
  1         1  
  1         6  
10 1     1   60 use Log::Any qw($log);
  1         2  
  1         5  
11 1     1   155 use Date::Parse;
  1         1  
  1         100  
12 1     1   6 use DateTime;
  1         1  
  1         30  
13              
14 1     1   4 use base "AsposeSlidesCloud::Object::BaseObject";
  1         1  
  1         245  
15              
16             #
17             #
18             #
19             #NOTE: This class is auto generated by the swagger code generator program. Do not edit the class manually.
20             #
21              
22             my $swagger_types = {
23             'List' => 'ARRAY[DocumentProperty]',
24             'SelfUri' => 'ResourceUri',
25             'AlternateLinks' => 'ARRAY[ResourceUri]',
26             'Links' => 'ARRAY[ResourceUri]'
27             };
28              
29             my $attribute_map = {
30             'List' => 'List',
31             'SelfUri' => 'SelfUri',
32             'AlternateLinks' => 'AlternateLinks',
33             'Links' => 'Links'
34             };
35              
36             # new object
37             sub new {
38 0     0 0   my ($class, %args) = @_;
39             my $self = {
40             #
41             'List' => $args{'List'},
42             #
43             'SelfUri' => $args{'SelfUri'},
44             #
45             'AlternateLinks' => $args{'AlternateLinks'},
46             #
47 0           'Links' => $args{'Links'}
48             };
49              
50 0           return bless $self, $class;
51             }
52              
53             # get swagger type of the attribute
54             sub get_swagger_types {
55 0     0 0   return $swagger_types;
56             }
57              
58             # get attribute mappping
59             sub get_attribute_map {
60 0     0 0   return $attribute_map;
61             }
62              
63             1;