File Coverage

blib/lib/WebService/Hexonet/Connector/Record.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 4 4 100.0
total 36 36 100.0


line stmt bran cond sub pod time code
1             package WebService::Hexonet::Connector::Record;
2              
3 1     1   17 use 5.026_000;
  1         5  
4 1     1   6 use strict;
  1         2  
  1         53  
5 1     1   7 use warnings;
  1         2  
  1         43  
6              
7 1     1   7 use version 0.9917; our $VERSION = version->declare('v2.9.1');
  1         14  
  1         6  
8              
9              
10             sub new {
11 3154     3154 1 5528 my ( $class, $data ) = @_;
12 3154         10222 return bless { data => $data }, $class;
13             }
14              
15              
16             sub getData {
17 6     6 1 554 my $self = shift;
18 6         47 return $self->{data};
19             }
20              
21              
22             sub getDataByKey {
23 4     4 1 1354 my $self = shift;
24 4         16 my $key = shift;
25 4 100       20 return $self->{data}->{$key}
26             if $self->hasData($key);
27 1         5 return;
28             }
29              
30              
31             sub hasData {
32 4     4 1 9 my $self = shift;
33 4         12 my $key = shift;
34 4         34 return defined $self->{data}->{$key};
35             }
36              
37             1;
38              
39             __END__