Here's what my "proof of concept code" looks like now: #!/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 =~ [EMAIL PROTECTED]@;
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 Data::Dumper;
my $foo = new FooBar();
my $psvc = $foo->getPersonService();
print Dumper($psvc);
printf "%s\n",$psvc->getPersonNameFromId(1);
print Dumper($foo);
At least I'm not getting the class not found errors, but I have a new
one that perplexes me:
[EMAIL PROTECTED] tmp]$ perl testInline.pl
$VAR1 = bless( {}, 'Inline::Java::Object' );
Can't call method 'getPersonNameFromID' on an object
(Inline::Java::Object) that is not bound to Perl at testInline.pl line
44
Ok... so why doesn't it recognize the class now for starters and the
method for another thing?
What magic foo do I need here?
--
Peter L. Berghold Unix Professional
[EMAIL PROTECTED] AIM: redcowdawg YIM: blue_cowdawg
"Those who fail to learn from history are condemned to repeat it."
signature.asc
Description: This is a digitally signed message part
