File Coverage

blib/lib/JMX/Jmx4Perl/Product/Websphere.pm
Criterion Covered Total %
statement 14 20 70.0
branch n/a
condition n/a
subroutine 6 11 54.5
pod 7 7 100.0
total 27 38 71.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             package JMX::Jmx4Perl::Product::Websphere;
3              
4 3     3   16 use JMX::Jmx4Perl::Product::BaseHandler;
  3         5  
  3         67  
5 3     3   14 use strict;
  3         4  
  3         78  
6 3     3   25 use base "JMX::Jmx4Perl::Product::BaseHandler";
  3         6  
  3         203  
7              
8 3     3   15 use Carp qw(croak);
  3         6  
  3         745  
9              
10             =head1 NAME
11              
12             JMX::Jmx4Perl::Product::Websphere - Handler for IBM Websphere
13              
14             =head1 DESCRIPTION
15              
16             This is the product handler support for IBM Websphere Application Server 6 and
17             7 (L)
18              
19             =cut
20              
21             sub id {
22 3     3 1 21 return "websphere";
23             }
24              
25             sub name {
26 0     0 1 0 return "IBM Websphere Application Server";
27             }
28              
29              
30             sub version {
31 0     0 1 0 return shift->_version_or_vendor("version",qr/^Version\s+(\d.*)\s*$/m);
32             }
33              
34             sub autodetect_pattern {
35 0     0 1 0 return (shift->original_version_sub,qr/IBM\s+WebSphere\s+Application\s+Server/i);
36             }
37              
38             sub order {
39 3     3 1 14 return 100;
40             }
41              
42             sub jsr77 {
43 0     0 1   return 1;
44             }
45              
46             sub init_aliases {
47 0     0 1   my $self = shift;
48             return {
49 0           attributes => {
50             OS_CPU_TIME => 0, # Don't support these ones
51             OS_FILE_DESC_MAX => 0,
52             OS_FILE_DESC_OPEN => 0,
53             OS_MEMORY_PHYSICAL_FREE => 0,
54             OS_MEMORY_PHYSICAL_TOTAL => 0,
55             OS_MEMORY_SWAP_FREE => 0,
56             OS_MEMORY_SWAP_TOTAL => 0,
57             OS_MEMORY_VIRTUAL => 0
58             }
59             };
60             }
61              
62             =head1 LICENSE
63              
64             This file is part of jmx4perl.
65              
66             Jmx4perl is free software: you can redistribute it and/or modify
67             it under the terms of the GNU General Public License as published by
68             the Free Software Foundation, either version 2 of the License, or
69             (at your option) any later version.
70              
71             jmx4perl is distributed in the hope that it will be useful,
72             but WITHOUT ANY WARRANTY; without even the implied warranty of
73             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
74             GNU General Public License for more details.
75              
76             You should have received a copy of the GNU General Public License
77             along with jmx4perl. If not, see .
78              
79             A commercial license is available as well. Please contact roland@cpan.org for
80             further details.
81              
82             =head1 AUTHOR
83              
84             roland@cpan.org
85              
86             =cut
87              
88             1;