CPAN::Groonga

package JavaScript::Ectype;
use strict;
use warnings;
our $VERSION = q{0.01};

use JSON;
use File::Slurp;
use File::Spec;
use UNIVERSAL::require;
use Carp qw/croak carp/;
use Scalar::Util qw/blessed/;

])/$1_$2/g;
    File::Spec->catfile( split /\./, lc($fqn));
}

sub _convert_json{
    my ($perl_value ) = @_;
    return JSON->new->utf8->encode( $perl_value );
}

sub _create_child {
    my ( $self, 

              sprintf(
                FORMAT_IMPORT_HEADER,
                $namespace, _convert_json( \@real ),
                join ',', @alias
              );
            unshift @footer, sprintf