File Coverage

blib/lib/Data/Lua.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Data::Lua;

use Carp qw();
use warnings;
use strict;


our $VERSION = '0.02';


# Workaround for a used-only-once warning being generated by Inline::Lua.
{ my $dummy = $Inline::Lua::Nil }


use Inline Lua => q{
    function _lua_loadstring(string)
        local func, err = loadstring(string)
        return _vars_from_func(func, err)
    end


    function _lua_loadfile(filename)
        local func, err = loadfile(filename)
        return _vars_from_func(func, err)
    end


    function _vars_from_func(func, err)
        if func == nil then  return nil, err  end

        local env = {}
        setfenv(func, env)
        func()
        return env
    end
};




sub parse {
    my($class, $string) = @_;
    return undef unless defined $string and length $string;
    return _check(_lua_loadstring($string));
}




sub parse_file {
    my($class, $file) = @_;
    return undef unless defined $file and length $file;
    return _check(_lua_loadfile($file));
}




# This subroutine is something of a workaround for a quirk of Inline::Lua.
# If the value being parsed (file or string) sets no variables then the env
# table is empty.  Inline::Lua translates an empty table to an array.  You
# should not otherwise get an array out of a top-level parse of variables, so
# we convert that array to an empty hash.
#
# It also (now) checks for parse errors and raises an exception.

sub _check {
    my($return, $error) = @_;

    if (not defined $return) {
        Carp::croak("Lua parse error: $error");

    } elsif (ref $return eq 'ARRAY') {
        if (@$return) { return { 0 => $return } }
        else          { return {}               }
    }

    return $return;
}



1;

__END__