don't manually invoke Inline::Lua as a module

Author: ItsMeForLua

t/6_lua_calls_perl_calls_lua.t

@@ -1,28 +1,23 @@
 #!/usr/bin/env perl
-
 use strict;
 use warnings;
-use Test::More tests => 1;
-use Inline::Lua;
 
-my $lua = Inline::Lua->new(DATA => \*DATA);
+use Inline Lua => <<'END_LUA';
+
+function lua_curry(f, a, b)
+  local g = f(a)
+  return g(b)
+end
 
-# Bind the Perl sub into Lua
-$lua->set('perl_curry', \&curry);
+END_LUA
 
-# Call Lua function that uses it
-is($lua->call('lua_curry', \&curry, 6, 7), 42, 'currying works');
+use Test::More tests => 1;
 
 sub curry {
-    my $arg = shift;
-    return sub {
-        return $arg * shift;
-    };
+  my $arg = shift;
+  return sub {
+    return $arg * shift;
+  };
 }
 
-__DATA__
-__Lua__
-function lua_curry (f, a, b)
-    local g = f(a)
-    return g(b)
-end
+is(lua_curry(\&curry, 6, 7), 42, 'currying works');