CPAN::Groonga

_types );
use Getopt::Class v0.102.6;
use HTML::Entities qw( decode_entities );
use IPC::Run;
use JSON;
use List::Util qw( uniq );
use Locale::Unicode;
use Module::Generic::File qw( file stdout stderr

te database file not cleaned up upon exception: $tmpfile\n" );
    exit(1);
};
my @files;
our $json = JSON->new->relaxed->allow_nonref->allow_blessed->convert_blessed;

$tmpfile = $opts->{db_file};
&l

e
    $basedir = $topdir->child( 'common' );
    if( !$basedir->exists )
    {
        die( "CLDR JSON base directory ${basedir} does not exist." );
    }

    my $iana_timezone_file = $script_dir->ch

h =
    {
        name => 'John Doe',
        active => $bool,
    };
    # Converting to json
    print( JSON->new->encode( $hash ), "\n" );
    # Would result in
    {
        name: "Jogn Doe",
    

ed interchangeably as perl boolean, i.e. 1 or 0, or as L<JSON> bool, i.e. C<true> or C<false>

The code is taken and adapted from part of L<JSON> module.

=head1 CONSTRUCTOR

=head2 new

Provided with

 perl true value i.e. 1 or C<true> when added into L<JSON>

=head2 false

This returns a perl false value i.e. 0 or C<false> when added into L<JSON>

=head2 is_bool

Provided with a value and this ret

nd call L<perlfunc/"die"> with it.

=head2 TO_JSON

Special method called by L<JSON> to transform this object into a string suitable to be added in a json data.

=head2 type

Set or get the error type

STORABLE_freeze

=for Pod::Coverage STORABLE_thaw

=for Pod::Coverage THAW

=for Pod::Coverage TO_JSON

Serialisation by L<CBOR|CBOR::XS>, L<Sereal> and L<Storable::Improved> (or the legacy L<Storable

    use DBD::SQLite;
    use DBI qw( :sql_types );
    use Encode ();
    use File::Spec;
    use JSON;
    use Locale::Unicode v0.3.5;
    use Scalar::Util ();
    use Wanted;
    use constant {
    

   die( "\$cldr->_decode_sql_arrays( \$array_ref_of_array_fields, \$data )" );
    }

    my $j = JSON->new->relaxed;
    local $@;
    if( ref( $ref ) eq 'HASH' )
    {
        foreach my $field ( @$

   if( $@ )
                {
                    warn( "Warning only: error attempting to decode JSON array in field \"${field}\" for value '", $ref->{ $field }, "': $@" );
                    $ref->