File Coverage

blib/lib/Zabbix2/API/UserGroup.pm

Criterion	Covered	Total	%
statement	24	40	60.0
branch	0	6	0.0
condition	0	5	0.0
subroutine	8	13	61.5
pod	2	2	100.0
total	34	66	51.5

package Zabbix2::API::UserGroup;

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

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

use Zabbix2::API::User;

has 'users' => (is => 'ro',
                lazy => 1,
                builder => '_fetch_users');

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

sub _prefix {
    my (undef, $suffix) = @_;
    if ($suffix and $suffix =~ m/ids?/) {
        return 'usrgrp'.$suffix;
    } elsif ($suffix) {
        return 'usergroup'.$suffix;
    } else {
        return 'usergroup';
    }
}

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

sub name {
    my $self = shift;
    return $self->data->{name} || '???';
}

sub _fetch_users {
    my $self = shift;
    my $users = $self->{root}->fetch('User', params => { usrgrpids => [ $self->id ] });
    return $users;
}

1;
__END__