File Coverage

blib/lib/WebService/Hexonet/Connector/Column.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	45	45	100.0

package WebService::Hexonet::Connector::Column;

use 5.026_000;
use strict;
use warnings;

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


sub new {
    my ( $class, $key, @data ) = @_;
    my $self = {};
    $self->{key} = $key;
    @{ $self->{data} } = @data;
    $self->{length} = scalar @data;
    return bless $self, $class;
}


sub getKey {
    my $self = shift;
    return $self->{key};
}


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


sub getDataByIndex {
    my $self = shift;
    my $idx  = shift;
    return $self->{data}[ $idx ]
        if $self->hasDataIndex($idx);
    return;
}


sub hasDataIndex {
    my $self = shift;
    my $idx  = shift;
    return $idx < $self->{length};
}

1;

__END__