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

package WebService::SSLLabs::Info;

use strict;
use warnings;

our $VERSION = '0.31';

sub new {
    my ( $class, $json ) = @_;
    my $self = $json;
    bless $self, $class;
    return $self;
}

sub version {
    my ($self) = @_;
    return $self->{version} || $self->{engineVersion};
}

sub current_assessments {
    my ($self) = @_;
    return $self->{currentAssessments};
}

sub messages {
    my ($self) = @_;
    return @{ $self->{messages} };
}

sub max_assessments {
    my ($self) = @_;
    return $self->{maxAssessments};
}

sub criteria_version {
    my ($self) = @_;
    return $self->{criteriaVersion};
}

sub new_assessment_cool_off {
    my ($self) = @_;
    return $self->{newAssessmentCoolOff};
}

1;
__END__