The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;