Imported Upstream version 1.12
This commit is contained in:
31
t/lib/ProductTest/Test1Handler.pm
Normal file
31
t/lib/ProductTest/Test1Handler.pm
Normal file
@@ -0,0 +1,31 @@
|
||||
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;
|
||||
27
t/lib/ProductTest/Test2Handler.pm
Normal file
27
t/lib/ProductTest/Test2Handler.pm
Normal file
@@ -0,0 +1,27 @@
|
||||
package ProductTest::Test2Handler;
|
||||
|
||||
use base qw(JMX::Jmx4Perl::Product::BaseHandler);
|
||||
|
||||
sub id { return "Test2" };
|
||||
|
||||
sub autodetect {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub order {
|
||||
return -1;
|
||||
}
|
||||
|
||||
sub init_aliases {
|
||||
return
|
||||
{
|
||||
attributes => {
|
||||
MEMORY_HEAP => [ "resolved2_name", "resolved2_attr" ]
|
||||
},
|
||||
operations => {
|
||||
MEMORY_GC => [ "memory2_name", "gc2_op" ]
|
||||
}
|
||||
};
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user