File Coverage

blib/lib/WebService/SSLLabs/Protocol.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


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::Protocol;
2              
3 3     3   19 use strict;
  3         7  
  3         83  
4 3     3   14 use warnings;
  3         6  
  3         701  
5              
6             our $VERSION = '0.31';
7              
8             sub new {
9 0     0 1   my ( $class, $json ) = @_;
10 0           my $self = $json;
11 0           bless $self, $class;
12 0           return $self;
13             }
14              
15             sub id {
16 0     0 1   my ($self) = @_;
17 0           return $self->{id};
18             }
19              
20             sub name {
21 0     0 1   my ($self) = @_;
22 0           return $self->{name};
23             }
24              
25             sub version {
26 0     0 1   my ($self) = @_;
27 0           return $self->{version};
28             }
29              
30             sub v2_suites_disabled {
31 0     0 1   my ($self) = @_;
32 0 0         return $self->{v2SuitesDisabled} ? 1 : 0;
33             }
34              
35             sub q {
36 0     0 1   my ($self) = @_;
37 0           return $self->{q};
38             }
39              
40             1;
41             __END__