File Coverage

blib/lib/Zabbix2/API/Map.pm

Criterion	Covered	Total	%
statement	23	36	63.8
branch	0	6	0.0
condition			n/a
subroutine	8	12	66.6
pod	1	1	100.0
total	32	55	58.1

package Zabbix2::API::Map;

use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;

use Moo;

extends qw/Exporter Zabbix2::API::CRUDE/;

use constant {
    MAP_ELEMENT_TYPE_HOST => 0,
    MAP_ELEMENT_TYPE_MAP => 1,
    MAP_ELEMENT_TYPE_TRIGGER => 2,
    MAP_ELEMENT_TYPE_HOSTGROUP => 3,
    MAP_ELEMENT_TYPE_IMAGE => 4
};

our @EXPORT_OK = qw/
MAP_ELEMENT_TYPE_HOST
MAP_ELEMENT_TYPE_MAP
MAP_ELEMENT_TYPE_TRIGGER
MAP_ELEMENT_TYPE_HOSTGROUP
MAP_ELEMENT_TYPE_IMAGE/;

our %EXPORT_TAGS = (
    map_element_types => [
        qw/MAP_ELEMENT_TYPE_HOST
        MAP_ELEMENT_TYPE_MAP
        MAP_ELEMENT_TYPE_TRIGGER
        MAP_ELEMENT_TYPE_HOSTGROUP
        MAP_ELEMENT_TYPE_IMAGE/
    ],
);

sub _readonly_properties {
    return {
        sysmapid => 1,
    };
}

sub id {
    ## mutator for id
    my ($self, $value) = @_;
    if (defined $value) {
        $self->data->{sysmapid} = $value;
        return $self->data->{sysmapid};
    } else {
        return $self->data->{sysmapid};
    }
}

sub _prefix {
    my (undef, $suffix) = @_;
    if ($suffix) {
        if ($suffix =~ m/id(s?)/) {
            return 'sysmap'.$suffix;
        }
        return 'map'.$suffix;
    } else {
        return 'map';
    }
}

sub _extension {
    return (output => 'extend',
            selectSelements => 'extend',
            selectLinks => 'extend');
}

1;
__END__