File Coverage

blib/lib/AsposeWordsCloud/Object/CommentDto.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 AsposeWordsCloud::Object::CommentDto;
2              
3             require 5.6.0;
4 1     1   262 use strict;
  1         2  
  1         22  
5 1     1   5 use warnings;
  1         1  
  1         19  
6 1     1   4 use utf8;
  1         1  
  1         4  
7 1     1   19 use JSON qw(decode_json);
  1         2  
  1         4  
8 1     1   74 use Data::Dumper;
  1         2  
  1         34  
9 1     1   5 use Module::Runtime qw(use_module);
  1         1  
  1         8  
10 1     1   54 use Log::Any qw($log);
  1         2  
  1         4  
11 1     1   164 use Date::Parse;
  1         2  
  1         65  
12 1     1   6 use DateTime;
  1         1  
  1         21  
13              
14 1     1   4 use base "AsposeWordsCloud::Object::BaseObject";
  1         2  
  1         190  
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             'RangeStart' => 'DocumentPositionDto',
24             'RangeEnd' => 'DocumentPositionDto',
25             'Author' => 'string',
26             'Initial' => 'string',
27             'DateTime' => 'string',
28             'Text' => 'string',
29             'Content' => 'StoryChildNodes',
30             'link' => 'Link'
31             };
32              
33             my $attribute_map = {
34             'RangeStart' => 'RangeStart',
35             'RangeEnd' => 'RangeEnd',
36             'Author' => 'Author',
37             'Initial' => 'Initial',
38             'DateTime' => 'DateTime',
39             'Text' => 'Text',
40             'Content' => 'Content',
41             'link' => 'link'
42             };
43              
44             # new object
45             sub new {
46 0     0 0   my ($class, %args) = @_;
47             my $self = {
48             #
49             'RangeStart' => $args{'RangeStart'},
50             #
51             'RangeEnd' => $args{'RangeEnd'},
52             #
53             'Author' => $args{'Author'},
54             #
55             'Initial' => $args{'Initial'},
56             #
57             'DateTime' => $args{'DateTime'},
58             #
59             'Text' => $args{'Text'},
60             #
61             'Content' => $args{'Content'},
62             #
63 0           'link' => $args{'link'}
64             };
65              
66 0           return bless $self, $class;
67             }
68              
69             # get swagger type of the attribute
70             sub get_swagger_types {
71 0     0 0   return $swagger_types;
72             }
73              
74             # get attribute mappping
75             sub get_attribute_map {
76 0     0 0   return $attribute_map;
77             }
78              
79             1;