File Coverage

blib/lib/WebService/SSLLabs/SimDetails.pm
Criterion Covered Total %
statement 9 22 40.9
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 29 48.2


line stmt bran cond sub pod time code
1             package WebService::SSLLabs::SimDetails;
2              
3 3     3   20 use strict;
  3         6  
  3         82  
4 3     3   22 use warnings;
  3         8  
  3         71  
5 3     3   1212 use WebService::SSLLabs::Simulation();
  3         8  
  3         397  
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           my @simulations = @{ $self->{results} };
  0            
14 0           $self->{results} = [];
15 0           foreach my $simulation (@simulations) {
16 0           push @{ $self->{results} },
  0            
17             WebService::SSLLabs::Simulation->new($simulation);
18             }
19 0           return $self;
20             }
21              
22             sub results {
23 0     0 1   my ($self) = @_;
24 0           return @{ $self->{results} };
  0            
25             }
26              
27             1;
28             __END__