File Coverage

blib/lib/WebService/SSLLabs/Info.pm
Criterion Covered Total %
statement 6 23 26.0
branch n/a
condition 0 3 0.0
subroutine 2 9 22.2
pod 7 7 100.0
total 15 42 35.7


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::Info;
2              
3 3     3   21 use strict;
  3         9  
  3         95  
4 3     3   16 use warnings;
  3         7  
  3         823  
5              
6             our $VERSION = '0.32';
7              
8             sub new {
9 0     0 1   my ( $class, $json ) = @_;
10 0           my $self = $json;
11 0           bless $self, $class;
12 0           return $self;
13             }
14              
15             sub version {
16 0     0 1   my ($self) = @_;
17 0   0       return $self->{version} || $self->{engineVersion};
18             }
19              
20             sub current_assessments {
21 0     0 1   my ($self) = @_;
22 0           return $self->{currentAssessments};
23             }
24              
25             sub messages {
26 0     0 1   my ($self) = @_;
27 0           return @{ $self->{messages} };
  0            
28             }
29              
30             sub max_assessments {
31 0     0 1   my ($self) = @_;
32 0           return $self->{maxAssessments};
33             }
34              
35             sub criteria_version {
36 0     0 1   my ($self) = @_;
37 0           return $self->{criteriaVersion};
38             }
39              
40             sub new_assessment_cool_off {
41 0     0 1   my ($self) = @_;
42 0           return $self->{newAssessmentCoolOff};
43             }
44              
45             1;
46             __END__