File Coverage

blib/lib/InfluxDB/Client/Response/Meta.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	6	0.0
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	34	35.2

package InfluxDB::Client::Response::Meta;
# ABSTRACT: meta information of responses stored in an L instance

use strict;
use warnings;

sub new {
    my ( $class, %args ) = @_;

    # make sure that we only store data we want and need
    my $self = bless {
        _influxdb_version => $args{influxdb_version},
        _request_id       => $args{request_id},
        _server           => $args{server}
    } => $class;

    return $self;
}

sub influxdb_version {
    my ( $self, $version ) = @_;
    $self->{_influxdb_version} = $version if ($version);
    return $self->{_influxdb_version};
}

sub request_id {
    my ( $self, $id ) = @_;
    $self->{_request_id} = $id if ($id);
    return $self->{_request_id};
}


sub server {
    my ( $self, $server ) = @_;
    $self->{_server} = $server if ($server);
    return $self->{_server};
}

1;

__END__