File Coverage

blib/lib/WebService/SSLLabs/Endpoint.pm

Criterion	Covered	Total	%
statement	9	43	20.9
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	17	17.6
pod	14	14	100.0
total	26	85	30.5

package WebService::SSLLabs::Endpoint;

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

our $VERSION = '0.33';

sub new {
    my ( $class, $json ) = @_;
    my $self = $json;
    if ( defined $self->{details} ) {
        $self->{details} =
          WebService::SSLLabs::EndpointDetails->new( $self->{details} );
    }
    bless $self, $class;
    return $self;
}

sub ready {
    my ($self) = @_;
    if ( defined $self->{statusMessage}
        && $self->{statusMessage} =~ /^READY$/ismx )
    {
        return $self;
    }
    else {
        return;
    }
}

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

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

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

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

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

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

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

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

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

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

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

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

1;
__END__