File Coverage

blib/lib/WebService/SSLLabs/Simulation.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch			n/a
condition			n/a
subroutine	3	10	30.0
pod	7	7	100.0
total	19	43	44.1

package WebService::SSLLabs::Simulation;

use strict;
use warnings;
use WebService::SSLLabs::SimClient();

our $VERSION = '0.32';

sub new {
    my ( $class, $json ) = @_;
    my $self = $json;
    bless $self, $class;
    $self->{client} = WebService::SSLLabs::SimClient->new( $self->{client} );
    return $self;
}

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

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

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

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

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

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

1;
__END__