I think the issue is that Lingua::StanfordCoreNLP has the java code in the __DATA__ section of the PM file

Doesn't seem to be an issue with Inline::C - though, faik, that might be quite irrelevant wrt Inline::Java.

With a site/lib/FOO/Soldier.pm that contains:

package FOO::Soldier;

use warnings;
use strict;

use Inline 'C';

1;

__DATA__
__C__
    
typedef struct {
  char* name;
  char* rank;
  long  serial;
  } Soldier;
 

   
SV* new(char* class, char* name, char* rank, long serial) {
    Soldier* soldier;
    SV*      obj_ref = newSViv(0);
    SV*      obj = newSVrv(obj_ref, class);

    New(42, soldier, 1, Soldier);

    soldier->name = savepv(name);
    soldier->rank = savepv(rank);
    soldier->serial = serial;
        
    sv_setiv(obj, (IV)soldier);
    SvREADONLY_on(obj);
    return obj_ref;
}
    
char* get_name(SV* obj) {
      return ((Soldier*)SvIV(SvRV(obj)))->name;
}
    
char* get_rank(SV* obj) {
      return ((Soldier*)SvIV(SvRV(obj)))->rank;
}
    
long get_serial(SV* obj) {
     return ((Soldier*)SvIV(SvRV(obj)))->serial;
}


void DESTROY(SV* obj) {
     printf("Destroy called\n");
     Soldier* soldier = (Soldier*)SvIV(SvRV(obj));
     Safefree(soldier->name);
     Safefree(soldier->rank);
     Safefree(soldier);
}
[download]

I can run the following script without any trouble:

package MyPackage;
use warnings;
use strict;

use FOO::Soldier;

my $obj1 = FOO::Soldier->new('Benjamin', 'Private', 11111);
my $obj2 = FOO::Soldier->new('Sanders', 'Colonel', 22222);
my $obj3 = FOO::Soldier->new('Matt', 'Sergeant', 33333);
    
for my $obj ($obj1, $obj2, $obj3) {
    print  $obj->get_serial, ") ", 
           $obj->get_name, " is a ", 
           $obj->get_rank, "\n";
}
[download]

which outputs (as expected):

11111) Benjamin is a Private
22222) Sanders is a Colonel
33333) Matt is a Sergeant
Destroy called
Destroy called
Destroy called
[download]

Good luck with it!

Cheers,
Rob

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.