#!/usr/bin/perl -w
use strict;
use Data::Dumper;
 
use Inline (
            Java => 'STUDY',
            STUDY => [ qw / com.schooner.test.JumpClass / ],
            AUTOSTUDY => 1,
            CLASSPATH=> '.'
            );
 
 
 
    use Inline (
                Java => qq(
import com.schooner.test.JumpClass;
 
public class SingletonWrapper {
    public SingletonWrapper(){}
 
    public JumpClass getInstance(){
        JumpClass j = JumpClass.getInstance();
        return j;
    }
}
                           ),
                CLASSPATH => "."
                );
 
 
 
 
my $jc =(new SingletonWrapper())->getInstance();
 
 
 
 
 
# print Dumper($jc);
#my $jc=main::com::schooner::test::JumpClass::getInstance();
print Dumper($jc);