File Coverage

blib/lib/WebService/SSLLabs/Key.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	2	0.0
condition			n/a
subroutine	2	8	25.0
pod	6	6	100.0
total	14	36	38.8

package WebService::SSLLabs::Key;

use strict;
use warnings;

our $VERSION = '0.32';

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

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

sub debian_flaw {
    my ($self) = @_;
    return $self->{debianFlaw} ? 1 : 0;
}

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

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

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

1;
__END__