File Coverage

blib/lib/WebService/SSLLabs/Suites.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	39	38.4

package WebService::SSLLabs::Suites;

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

our $VERSION = '0.31';

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

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

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

1;
__END__