File Coverage

blib/lib/WebService/SSLLabs/Protocol.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::Protocol;

use strict;
use warnings;

our $VERSION = '0.33';

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

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

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

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

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

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

1;
__END__