Imported Upstream version 1.12

t/lib/It.pm

@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+
+package It;
+
+use strict;
+use JMX::Jmx4Perl;
+use Exporter;
+use vars qw(@EXPORT);
+use Data::Dumper;
+
+@EXPORT = qw($IT_BEAN);
+
+my $IT_BEAN = "jolokia:type=it,name=testbean";
+
+
+sub new { 
+    my $class = shift;
+    my %args = @_;
+    my $self = {};
+    $self->{url} = $args{gateway} || $ENV{JMX4PERL_GATEWAY} || die "No gateway URL given";
+    $self->{product} = $args{product} || $ENV{JMX4PERL_PRODUCT};
+    $self->{user} = $args{user} || $ENV{JMX4PERL_USER};
+    $self->{password} = $args{password} || $ENV{JMX4PERL_PASSWORD};
+    $self->{verbose} = $args{verbose} || $ENV{JMX4PERL_VERBOSE};
+    my $t_url = $args{target_url} || $ENV{JMX4PERL_TARGET_URL};
+    my $t_user = $args{target_user} || $ENV{JMX4PERL_TARGET_USER};
+    my $t_password = $args{target_password} || $ENV{JMX4PERL_TARGET_PASSWORD};
+    my @params = map { $_ => $self->{$_ } } qw(url product user password verbose);
+    if ($t_url) {
+        push @params, target => {
+                                 url => $t_url,
+                                 $t_user ? (user => $t_user) : (),
+                                 $t_password ? (password => $t_password) : ()
+                                };
+    }
+    $self->{jmx4perl} = new JMX::Jmx4Perl(@params);
+    
+    bless $self,(ref($class) || $class);
+
+}
+
+sub jmx4perl {
+    my $self = shift;
+    return $self->{jmx4perl};
+}
+
+sub userAgent {
+    my $self = shift;
+    my $j4p = $self->jmx4perl;
+    return $j4p->{ua};
+}
+
+1;

t/lib/ProductTest/Test1Handler.pm

@@ -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;

t/lib/ProductTest/Test2Handler.pm

@@ -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;