File Coverage

blib/lib/WebService/SSLLabs/StatusCodes.pm
Criterion Covered Total %
statement 6 13 46.1
branch n/a
condition n/a
subroutine 2 4 50.0
pod 2 2 100.0
total 10 19 52.6


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::StatusCodes;
2              
3 3     3   20 use strict;
  3         6  
  3         111  
4 3     3   32 use warnings;
  3         7  
  3         362  
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 status_details {
16 0     0 1   my ($self) = @_;
17 0           return %{ $self->{statusDetails} };
  0            
18             }
19              
20             1;
21             __END__