#!/usr/bin/perl -w 


BEGIN {
    my $libdir='/home/pberghol/src/www.bayshoredogclub.org/WebRoot/WEB-INF/lib';    my @jars=();
    opendir LIBDIR,$libdir or die $1; 
    while( my $fname = readdir(LIBDIR)){
        next unless $fname =~ m@\.jar$@;

        push @jars,$libdir . "/" . $fname;
    }
    $ENV{CLASSPATH}=join(":",@jars,"/home/pberghol/tmp/bcdchbm.jar");


}


use Inline Java => << 'End_Of_Java_Code' ,CLASSPATH=> $ENV{CLASSPATH};
import org.bcdc.hbm.services.PeopleService;

class FooBar {

    
    public FooBar(){
    }

    public PeopleService getPersonService() {
        return  PeopleService.getInstance();
    }


}
End_Of_Java_Code
use Inline::Java qw(study_classes);
use Data::Dumper;

study_classes(['org.bcdc.hbm.services.PeopleService']);
my $foo = new FooBar();



my $psvc = $foo->getPersonService();
print Dumper($psvc);

printf "%s\n",$psvc->getPersonNameFromID(1);

print Dumper($foo);