File Coverage

line	stmt	bran	cond	sub	pod	time	code
1							package Zabbix::API::Host;
2
3	2			2		22318	use strict;
	2					6
	2					86
4	2			2		12	use warnings;
	2					4
	2					99
5	2			2		71	use 5.010;
	2					10
	2					82
6	2			2		22	use Carp;
	2					5
	2					205
7
8	2			2		1818	use parent qw/Zabbix::API::CRUDE/;
	2					684
	2					11
9
10							sub id {
11
12							## mutator for id
13
14	0			0	1		my ($self, $value) = @_;
15
16	0	0					if (defined $value) {
17
18	0						$self->data->{hostid} = $value;
19	0						return $self->data->{hostid};
20
21							} else {
22
23	0						return $self->data->{hostid};
24
25							}
26
27							}
28
29							sub prefix {
30
31	0			0	1		my (undef, $suffix) = @_;
32
33	0	0					if ($suffix) {
34
35	0						return 'host'.$suffix;
36
37							} else {
38
39	0						return 'host';
40
41							}
42
43							}
44
45							sub extension {
46
47	0			0	1		return ( output => 'extend',
48							select_macros => 'extend',
49							select_groups => 'extend' );
50
51							}
52
53							sub collides {
54
55	0			0	1		my $self = shift;
56
57	0						return @{$self->{root}->query(method => $self->prefix('.get'),
	0
58							params => { filter => { host => $self->data->{host} },
59							$self->extension })};
60
61							}
62
63							sub name {
64
65	0			0	1		my $self = shift;
66
67	0		0				return $self->data->{host} \|\| '';
68
69							}
70
71							sub items {
72
73							## accessor for items
74
75	0			0	1		my ($self, $value) = @_;
76
77	0	0					if (defined $value) {
78
79	0						die 'Accessor items called as mutator';
80
81							} else {
82
83	0						my $items = $self->{root}->fetch('Item', params => { hostids => [ $self->data->{hostid} ] });
84
85	0						$self->{items} = $items;
86
87	0						return $self->{items};
88
89							}
90
91							}
92
93							1;
94							__END__