File Coverage

blib/lib/Zabbix2/API/Trigger.pm

Criterion	Covered	Total	%
statement	24	37	64.8
branch	0	4	0.0
condition			n/a
subroutine	8	13	61.5
pod	2	2	100.0
total	34	56	60.7

package Zabbix2::API::Trigger;

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

use Moo::Lax;
extends qw/Exporter Zabbix2::API::CRUDE/;

use constant {
    TRIGGER_PRIORITY_NOT_CLASSIFIED => 0,
    TRIGGER_PRIORITY_INFO => 1,
    TRIGGER_PRIORITY_WARN => 2,
    TRIGGER_PRIORITY_AVG  => 3,
    TRIGGER_PRIORITY_HIGH => 4,
    TRIGGER_PRIORITY_DISASTER => 5,
    TRIGGER_STATUS_ACTIVE => 0,
    TRIGGER_STATUS_DISABLED => 1,
    TRIGGER_VALUE_OK => 0,
    TRIGGER_VALUE_PROBLEM => 1,
    TRIGGER_VALUE_UNKNOWN => 2,
    TRIGGER_TYPE_NORMAL => 0,
    TRIGGER_TYPE_MULTIPLE => 1,
};

our @EXPORT_OK = qw/
TRIGGER_PRIORITY_NOT_CLASSIFIED
TRIGGER_PRIORITY_INFO
TRIGGER_PRIORITY_WARN
TRIGGER_PRIORITY_AVG
TRIGGER_PRIORITY_HIGH
TRIGGER_PRIORITY_DISASTER
TRIGGER_STATUS_ACTIVE
TRIGGER_STATUS_DISABLED
TRIGGER_VALUE_OK
TRIGGER_VALUE_PROBLEM
TRIGGER_VALUE_UNKNOWN
TRIGGER_TYPE_NORMAL
TRIGGER_TYPE_MULTIPLE/;

our %EXPORT_TAGS = (
    trigger_types => [
        qw/TRIGGER_TYPE_NORMAL
        TRIGGER_TYPE_MULTIPLE/
    ],
    priority_types => [
        qw/TRIGGER_PRIORITY_NOT_CLASSIFIED
        TRIGGER_PRIORITY_INFO
        TRIGGER_PRIORITY_WARN
        TRIGGER_PRIORITY_AVG
        TRIGGER_PRIORITY_HIGH
        TRIGGER_PRIORITY_DISASTER/
    ],
    value_types => [
        qw/TRIGGER_VALUE_OK
        TRIGGER_VALUE_PROBLEM
        TRIGGER_VALUE_UNKNOWN/
    ],
    status_types => [
         qw/TRIGGER_STATUS_ACTIVE
         TRIGGER_STATUS_DISABLED/
    ]
);

sub _readonly_properties {
    return {
        triggerid => 1,
        error => 1,
        flags => 1,
        lastchange => 1,
        state => 1,
        templateid => 1,
        value => 1,
    };
}

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

sub _prefix {
    my (undef, $suffix) = @_;
    if ($suffix) {
        return 'trigger'.$suffix;
    } else {
        return 'trigger';
    }
}

sub _extension {
    return (output => 'extend',
            selectHosts => ['hostid'],
            selectItems => ['itemid'],
            selectFunctions => 'extend',
            selectDependencies => ['triggerid']);
}

sub name {
    my $self = shift;
    # can't think of a good name for triggers -- descriptions are too long
    return $self->data->{description};
}

1;
__END__