1package ProductTest::Test1Handler; 2 3use base qw(JMX::Jmx4Perl::Product::BaseHandler); 4use JMX::Jmx4Perl::Alias; 5 6 7sub id { return "Test1" }; 8 9sub autodetect { return 1; } 10 11sub order { 12 return 1; 13} 14sub init_aliases { 15 return { 16 attributes => 17 { 18 MEMORY_HEAP => [ "resolved_name", "resolved_attr" ], 19 SERVER_NAME => [ 20 sub { 21 return ["server","name"] 22 } 23 ], 24 SERVER_ADDRESS => sub { 25 return "127.0.0.1"; 26 } 27 } 28 }; 29} 30 311; 32