File Coverage

blib/lib/Monitoring/Generator/TestConfig/P1Data.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package # hidden from cpan
2             Monitoring::Generator::TestConfig::P1Data;
3              
4 3     3   19 use strict;
  3         8  
  3         111  
5 3     3   20 use warnings;
  3         6  
  3         296  
6              
7             ########################################
8              
9             =over 4
10              
11             =item get_p1_script
12              
13             returns the p1 script source
14              
15             adapted from the nagios debian package
16              
17             =back
18              
19             =cut
20              
21             sub get_p1_script {
22 1     1 1 3 my $self = shift;
23 1         2 our $scriptsource;
24 1 50       5 if(!defined $scriptsource) {
25 1         3 $scriptsource = do { local $/; };
  1         4  
  1         43  
26             }
27 1         8 return($scriptsource);
28             }
29              
30             1;
31              
32             __DATA__