Code:
#!/usr/bin/perl -w
#use Inline C;
use Inline C => Config => Structs => ['Foo'];
use strict;
my $obj = Inline::Struct::Foo->new;
$obj->num(10);
$obj->str("Hello");
myfunc($obj);
__END__
__C__
#include<stdio.h>
struct Foo {
int num;
char *str;
};
void myfunc(Foo *f) {
printf("myfunc: num=%i, str='%s'\n", f->num, f->str);
}
This Code showing this specific error during runtime :
Code:
"Can't locate object method "new" via package "Inline::Struct::Foo" (perhaps you forgot to load "Inline::Struct::Foo"?) at /home/tango/workspace/PerlLerning/structFromPl.pl line 10."
What is the possible solution??
