File Coverage

blib/lib/WebService/SSLLabs/SimDetails.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	29	48.2

package WebService::SSLLabs::SimDetails;

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

our $VERSION = '0.31';

sub new {
    my ( $class, $json ) = @_;
    my $self = $json;
    bless $self, $class;
    my @simulations = @{ $self->{results} };
    $self->{results} = [];
    foreach my $simulation (@simulations) {
        push @{ $self->{results} },
          WebService::SSLLabs::Simulation->new($simulation);
    }
    return $self;
}

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

1;
__END__