File Coverage

blib/lib/WebService/SSLLabs/Suite.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch			n/a
condition			n/a
subroutine	3	14	21.4
pod	11	11	100.0
total	23	58	39.6

package WebService::SSLLabs::Suite;

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

our $VERSION = '0.33';

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

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

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

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

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

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

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

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

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

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

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

1;
__END__