File Coverage

blib/lib/Xymon.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Xymon;
2 1     1   44049 use strict;
  1         2  
  1         34  
3              
4             BEGIN {
5 1     1   5 use Exporter ();
  1         2  
  1         16  
6 1     1   4 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  1         5  
  1         98  
7 1     1   2 $VERSION = '0.01';
8 1         12 @ISA = qw(Exporter);
9             #Give a hoot don't pollute, do not export more than needed by default
10 1         2 @EXPORT = qw();
11 1         1 @EXPORT_OK = qw();
12 1         87 %EXPORT_TAGS = ();
13             }
14              
15              
16             #################### subroutine header begin ####################
17              
18             =head2 sample_function
19              
20             Usage : How to use this function/method
21             Purpose : What it does
22             Returns : What it returns
23             Argument : What it wants to know
24             Throws : Exceptions and other anomolies
25             Comment : This is a sample subroutine header.
26             : It is polite to include more pod and fewer comments.
27              
28             See Also :
29              
30             =cut
31              
32             #################### subroutine header end ####################
33              
34              
35             sub new
36             {
37 1     1 0 13 my ($class, %parameters) = @_;
38              
39 1   33     10 my $self = bless ({}, ref ($class) || $class);
40              
41 1         3 return $self;
42             }
43              
44              
45             #################### main pod documentation begin ###################
46             ## Below is the stub of documentation for your module.
47             ## You better edit it!
48              
49              
50             =head1 NAME
51              
52             Xymon - Xymon Base Module
53              
54             =head1 SYNOPSIS
55              
56             use Xymon;
57             blah blah blah
58              
59              
60             =head1 DESCRIPTION
61              
62             Stub documentation for this module was created by ExtUtils::ModuleMaker.
63             It looks like the author of the extension was negligent enough
64             to leave the stub unedited.
65              
66             Blah blah blah.
67              
68              
69             =head1 USAGE
70              
71              
72              
73             =head1 BUGS
74              
75              
76              
77             =head1 SUPPORT
78              
79              
80              
81             =head1 AUTHOR
82              
83             David Peters
84             CPAN ID: DAVIDP
85             davidp@electronf.com
86             http://www.electronf.com
87              
88             =head1 COPYRIGHT
89              
90             This program is free software; you can redistribute
91             it and/or modify it under the same terms as Perl itself.
92              
93             The full text of the license can be found in the
94             LICENSE file included with this module.
95              
96              
97             =head1 SEE ALSO
98              
99             perl(1).
100              
101             =cut
102              
103             #################### main pod documentation end ###################
104              
105              
106             1;
107             # The preceding line will help the module return a true value
108