File Coverage

blib/lib/Zabbix2/API/Trigger.pm

Criterion	Covered	Total	%
statement	20	33	60.6
branch	0	4	0.0
condition			n/a
subroutine	7	12	58.3
pod	2	2	100.0
total	29	51	56.8

package Zabbix2::API::Trigger;

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

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

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__