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

package WebService::Hexonet::Connector::Record;

use 5.026_000;
use strict;
use warnings;

use version 0.9917; our $VERSION = version->declare('v2.9.2');


sub new {
    my ( $class, $data ) = @_;
    return bless { data => $data }, $class;
}


sub getData {
    my $self = shift;
    return $self->{data};
}


sub getDataByKey {
    my $self = shift;
    my $key  = shift;
    return $self->{data}->{$key}
        if $self->hasData($key);
    return;
}


sub hasData {
    my $self = shift;
    my $key  = shift;
    return defined $self->{data}->{$key};
}

1;

__END__