File Coverage

blib/lib/WebService/SSLLabs/Suite.pm
Criterion Covered Total %
statement 9 33 27.2
branch n/a
condition n/a
subroutine 3 14 21.4
pod 11 11 100.0
total 23 58 39.6


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::Suite;
2              
3 3     3   21 use strict;
  3         5  
  3         86  
4 3     3   15 use warnings;
  3         7  
  3         61  
5 3     3   18 use WebService::SSLLabs::Suite();
  3         6  
  3         1003  
6              
7             our $VERSION = '0.31';
8              
9             sub new {
10 0     0 1   my ( $class, $json ) = @_;
11 0           my $self = $json;
12 0           bless $self, $class;
13 0           return $self;
14             }
15              
16             sub cipher_strength {
17 0     0 1   my ($self) = @_;
18 0           return $self->{cipherStrength};
19             }
20              
21             sub name {
22 0     0 1   my ($self) = @_;
23 0           return $self->{name};
24             }
25              
26             sub ecdh_bits {
27 0     0 1   my ($self) = @_;
28 0           return $self->{ecdhBits};
29             }
30              
31             sub ecdh_strength {
32 0     0 1   my ($self) = @_;
33 0           return $self->{ecdhStrength};
34             }
35              
36             sub dh_strength {
37 0     0 1   my ($self) = @_;
38 0           return $self->{dhStrength};
39             }
40              
41             sub dh_ys {
42 0     0 1   my ($self) = @_;
43 0           return $self->{dhYs};
44             }
45              
46             sub dh_g {
47 0     0 1   my ($self) = @_;
48 0           return $self->{dhG};
49             }
50              
51             sub dh_p {
52 0     0 1   my ($self) = @_;
53 0           return $self->{dhP};
54             }
55              
56             sub id {
57 0     0 1   my ($self) = @_;
58 0           return $self->{id};
59             }
60              
61             sub q {
62 0     0 1   my ($self) = @_;
63 0           return $self->{q};
64             }
65              
66             1;
67             __END__