File Coverage

blib/lib/WebService/SSLLabs/ChainCert.pm

Criterion	Covered	Total	%
statement	6	40	15.0
branch			n/a
condition			n/a
subroutine	2	18	11.1
pod	16	16	100.0
total	24	74	32.4

package WebService::SSLLabs::ChainCert;

use strict;
use warnings;

our $VERSION = '0.32';

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1;
__END__