File Coverage

blib/lib/WebService/SSLLabs/DrownHost.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	6	0.0
condition			n/a
subroutine	2	9	22.2
pod	7	7	100.0
total	15	44	34.0

package WebService::SSLLabs::DrownHost;

use strict;
use warnings;

our $VERSION = '0.31';

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

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

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

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

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

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

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

1;
__END__