File Coverage

blib/lib/JMX/Jmx4Perl/Product/SpringDM.pm
Criterion Covered Total %
statement 17 31 54.8
branch 0 4 0.0
condition n/a
subroutine 7 12 58.3
pod 6 6 100.0
total 30 53 56.6


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             package JMX::Jmx4Perl::Product::SpringDM;
3              
4 4     4   28 use JMX::Jmx4Perl::Product::BaseHandler;
  4         10  
  4         121  
5 4     4   22 use strict;
  4         7  
  4         137  
6 4     4   23 use base "JMX::Jmx4Perl::Product::BaseHandler";
  4         7  
  4         413  
7 4     4   27 use Data::Dumper;
  4         8  
  4         227  
8              
9 4     4   24 use Carp qw(croak);
  4         8  
  4         1079  
10              
11             =head1 NAME
12              
13             JMX::Jmx4Perl::Product::SpringDM - Handler for Spring dm-Server.
14              
15             =head1 DESCRIPTION
16              
17             This is the product handler support for Spring dm Server
18             (L).
19              
20             =cut
21              
22             sub id {
23 4     4 1 31 return "springdm";
24             }
25              
26             sub name {
27 0     0 1 0 return "Spring dm-Server";
28             }
29              
30             sub vendor {
31 0     0 1 0 return "SpringSource";
32             }
33              
34             sub order {
35 4     4 1 17 return 300;
36             }
37              
38             sub version {
39 0     0 1   return shift->{version};
40             }
41              
42             sub autodetect_pattern {
43             return sub {
44 0     0     my $self = shift;
45 0           my $j4p = $self->{jmx4perl};
46 0           my $ret = $j4p->search("com.springsource.kernel:name=com.springsource.kernel.agent.dm,*");
47             #print Dumper($ret);
48 0 0         if ($ret) {
49 0           for my $n (@$ret) {
50 0           my ($domain,$attrs) = $j4p->parse_name($n);
51 0 0         if ($attrs->{version}) {
52 0           $self->{version} = $attrs->{version};
53 0           return 1;
54             }
55             }
56             }
57 0           return undef;
58 0     0 1   };
59             }
60              
61             =head1 LICENSE
62              
63             This file is part of jmx4perl.
64              
65             Jmx4perl is free software: you can redistribute it and/or modify
66             it under the terms of the GNU General Public License as published by
67             the Free Software Foundation, either version 2 of the License, or
68             (at your option) any later version.
69              
70             jmx4perl is distributed in the hope that it will be useful,
71             but WITHOUT ANY WARRANTY; without even the implied warranty of
72             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
73             GNU General Public License for more details.
74              
75             You should have received a copy of the GNU General Public License
76             along with jmx4perl. If not, see .
77              
78             A commercial license is available as well. Please contact roland@cpan.org for
79             further details.
80              
81             =head1 AUTHOR
82              
83             roland@cpan.org
84              
85             =cut
86              
87             1;