#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use Inline 'Lua';
use Data::Dumper;
sub bla {
return {
foo => sub {
Dumper(\@_);
1
},
};
}
gna({bla => \&bla});
pass('made it!');
__END__
__Lua__
function gna(t)
x = t:bla()
x:foo {'Test'} -- Will work
x:foo 'Test' -- Will create a segmentation fault
end