File Coverage

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


line stmt bran cond sub pod time code
1             package # hidden from cpan
2             Monitoring::Generator::TestConfig::P1Data;
3              
4 3     3   9 use strict;
  3         2  
  3         62  
5 3     3   8 use warnings;
  3         2  
  3         207  
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 2 my $self = shift;
23 1         1 our $scriptsource;
24 1 50       3 if(!defined $scriptsource) {
25 1         4 while(my $line = ) { $scriptsource .= $line; }
  313         402  
26             }
27              
28 1         11 return($scriptsource);
29             }
30              
31             1;
32              
33             __DATA__