File Coverage

blib/lib/WebService/SSLLabs/Host.pm

Criterion	Covered	Total	%
statement	9	61	14.7
branch	0	14	0.0
condition	0	3	0.0
subroutine	3	18	16.6
pod	15	15	100.0
total	27	111	24.3

package WebService::SSLLabs::Host;

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

our $VERSION = '0.31';

sub new {
    my ( $class, $json ) = @_;
    my $self = $json;
    if ( defined $self->{endpoints} ) {
        my @endpoints = @{ $self->{endpoints} };
        $self->{endpoints} = [];
        foreach my $endpoint (@endpoints) {
            push @{ $self->{endpoints} },
              WebService::SSLLabs::Endpoint->new($endpoint);
        }
    }
    else {
        $self->{endpoints} = [];
    }
    bless $self, $class;
    return $self;
}

sub ready {
    my ($self) = @_;
    if ( $self->status() =~ /^READY$/smxi ) {
        return $self;
    }
    else {
        return;
    }
}

sub complete {
    my ($self) = @_;
    if ( $self->status() =~ /^READY|ERROR$/smxi ) {
        return $self;
    }
    else {
        return;
    }
}

sub eta {
    my ($self) = @_;
    my $host_eta;
    foreach my $endpoint ( $self->endpoints() ) {
        if (   ( defined $endpoint->eta() )
            && ( $endpoint->eta() =~ /^\d+$/smx ) )
        {
            if ( !defined $host_eta ) {
                $host_eta = $endpoint->eta();
            }
            if ( $endpoint->eta() >= $host_eta ) {
                $host_eta = $endpoint->eta();
            }
        }
    }
    return $host_eta;
}

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

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

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

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

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

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

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

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

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

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

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

1;
__END__