File Coverage

blib/lib/WebService/SSLLabs/DrownHost.pm
Criterion Covered Total %
statement 6 22 27.2
branch 0 6 0.0
condition n/a
subroutine 2 9 22.2
pod 7 7 100.0
total 15 44 34.0


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::DrownHost;
2              
3 3     3   21 use strict;
  3         6  
  3         83  
4 3     3   15 use warnings;
  3         6  
  3         865  
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 ip {
16 0     0 1   my ($self) = @_;
17 0           return $self->{ip};
18             }
19              
20             sub export {
21 0     0 1   my ($self) = @_;
22 0 0         return $self->{export} ? 1 : 0;
23             }
24              
25             sub port {
26 0     0 1   my ($self) = @_;
27 0           return $self->{port};
28             }
29              
30             sub special {
31 0     0 1   my ($self) = @_;
32 0 0         return $self->{special} ? 1 : 0;
33             }
34              
35             sub sslv2 {
36 0     0 1   my ($self) = @_;
37 0 0         return $self->{sslv2} ? 1 : 0;
38             }
39              
40             sub status {
41 0     0 1   my ($self) = @_;
42 0           return $self->{status};
43             }
44              
45             1;
46             __END__