CPAN::Groonga

Id$

package JavaScript::JSLint;

use strict;
use warnings;

use Carp;
use JavaScript;
use JSON qw(encode_json);

use base qw( Exporter );

our @EXPORT = qw( jslint );
our @EXPORT_OK = qw( jslint jsli

json(
        [ split(/\n/, $js_source) ]
    );

    my $predef = $opt{predef} || {};
    if ( $predef && ref $predef eq 'HASH' ) {
        %{$predef} = map {
            $_ => ( $predef->{$_} ? JSON

::true : JSON::false )
        } keys %{$predef};
    }
    $opt{predef} = $predef;

    my $opt_str = encode_json( { 
        map {
            $_ => (
                ($JSLINT_OPTIONS{$_} && $JSLINT