File Coverage

blib/lib/JMX/Jmx4Perl/Product/Terracotta.pm
Criterion Covered Total %
statement 17 28 60.7
branch 0 2 0.0
condition n/a
subroutine 7 12 58.3
pod 6 6 100.0
total 30 48 62.5


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