File Coverage

blib/lib/Zabbix/API/Trigger.pm

Criterion	Covered	Total	%
statement	14	79	17.7
branch	0	24	0.0
condition			n/a
subroutine	5	16	31.2
pod	11	11	100.0
total	30	130	23.0

package Zabbix::API::Trigger;

use strict;
use warnings;
use 5.010;
use Carp;

use parent qw/Zabbix::API::CRUDE/;

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',
             select_hosts => 'refer',
             select_items => 'refer',
             select_functions => 'extend',
             select_dependencies => 'refer' );

}

sub collides {

    my $self = shift;

    return @{$self->{root}->query(method => $self->prefix('.get'),
                                  params => { filter => { description => [ $self->data->{description} ] },
                                              $self->extension })};

}

sub name {

    my $self = shift;

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

}

sub hosts {

    ## accessor for host

    my ($self, $value) = @_;

    if (defined $value) {

        croak 'Accessor hosts called as mutator';

    } else {

        unless (exists $self->{hosts}) {

            $self->{hosts} = $self->{root}->fetch('Host', params => { hostids => [ map { $_->{hostid} } @{$self->data->{hosts}} ] });

        }

        return $self->{hosts};

    }

}

sub items {

    ## accessor for items

    my ($self, $value) = @_;

    if (defined $value) {

        croak 'Accessor items called as mutator';

    } else {

        unless (exists $self->{items}) {

            $self->{items} = $self->{root}->fetch('Item', params => { itemids => [ map { $_->{itemid} } @{$self->data->{items}} ] });

        }

        return $self->{items};

    }

}

sub add_dependency {

    my ($self, $dependency) = @_;

    $self->{root}->query(method => $self->prefix('.addDependencies'),
                         params => [ { triggerid => $self->id,
                                       dependsOnTriggerid => eval { $dependency->isa('Zabbix::API::Trigger') } ? $dependency->id : $dependency } ]);

    $self->pull;

    return $self;

}

sub dependencies {

    my ($self, $value) = @_;

    if (defined $value) {

        croak 'Accessor dependencies called as mutator';

    } else {

        unless (exists $self->{dependencies}) {

            $self->{dependencies} = $self->{root}->fetch('Trigger', params => { triggerids => [ map { $_->{triggerid} } @{$self->data->{dependencies}} ] });

        }

        return $self->{dependencies};

    }

}

sub remove_dependency {

    my ($self, $dependency) = @_;

    $self->pull;

    my %deps = map { $_->{triggerid} => $_->{triggerid} } @{$self->data->{dependencies}};

    if (eval { $dependency->isa('Zabbix::API::Trigger') }) {

        return $self unless exists $deps{$dependency->id};
        delete $deps{$dependency->id};

    } else {

        return $self unless exists $deps{$dependency};
        delete $deps{$dependency};

    }

    $self->{root}->query(method => $self->prefix('.deleteDependencies'),
                         params => [ { triggerid => $self->id } ]);

    $self->{root}->query(method => $self->prefix('.addDependencies'),
                         params => [ map { { triggerid => $self->id,
                                             dependsOnTriggerid => $_ } } keys %deps ]);

    $self->pull;

    return $self;

}

sub pull {

    # override CRUDE's pull

    my ($self, @args) = @_;

    # because they might have been updated
    delete $self->{hosts};
    delete $self->{items};

    # and now this will set the correct ids, and next time we access the hosts
    # or items they will be up to date
    $self->SUPER::pull(@args);

    return $self;

}

1;
__END__