File Coverage

blib/lib/WebService/SSLLabs/SimClient.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	2	0.0
condition			n/a
subroutine	2	8	25.0
pod	6	6	100.0
total	14	36	38.8

package WebService::SSLLabs::SimClient;

use strict;
use warnings;

our $VERSION = '0.33';

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

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

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

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

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

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

1;
__END__