File Coverage

blib/lib/WebService/SSLLabs/Chain.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	37	40.5

package WebService::SSLLabs::Chain;

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

our $VERSION = '0.33';

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

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

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

1;
__END__