32 lines
631 B
Perl
32 lines
631 B
Perl
package ProductTest::Test1Handler;
|
|
|
|
use base qw(JMX::Jmx4Perl::Product::BaseHandler);
|
|
use JMX::Jmx4Perl::Alias;
|
|
|
|
|
|
sub id { return "Test1" };
|
|
|
|
sub autodetect { return 1; }
|
|
|
|
sub order {
|
|
return 1;
|
|
}
|
|
sub init_aliases {
|
|
return {
|
|
attributes =>
|
|
{
|
|
MEMORY_HEAP => [ "resolved_name", "resolved_attr" ],
|
|
SERVER_NAME => [
|
|
sub {
|
|
return ["server","name"]
|
|
}
|
|
],
|
|
SERVER_ADDRESS => sub {
|
|
return "127.0.0.1";
|
|
}
|
|
}
|
|
};
|
|
}
|
|
|
|
1;
|