line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Monitoring::Generator::TestConfig::HostCheckData; |
2
|
|
|
|
|
|
|
|
3
|
3
|
|
|
3
|
|
19
|
use strict; |
|
3
|
|
|
|
|
8
|
|
|
3
|
|
|
|
|
76
|
|
4
|
3
|
|
|
3
|
|
14
|
use warnings; |
|
3
|
|
|
|
|
4
|
|
|
3
|
|
|
|
|
322
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
######################################## |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
=over 4 |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
=item get_test_hostcheck |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
returns the test hostcheck plugin source |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
=back |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=cut |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
sub get_test_hostcheck { |
19
|
1
|
|
|
1
|
1
|
3
|
my $self = shift; |
20
|
1
|
|
|
|
|
2
|
our $testhostcheck; |
21
|
1
|
50
|
|
|
|
4
|
return($testhostcheck) if defined $testhostcheck; |
22
|
1
|
|
|
|
|
2
|
$testhostcheck = do { local $/; }; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
18
|
|
23
|
1
|
|
|
|
|
11
|
return($testhostcheck); |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__DATA__ |