Yet Another CPAN Grep

Time-C ( C/CO/COFFEE/Time-C-0.024.tar.gz, COFFEE, 2017; MetaCPAN )

Time-C/tools/update-dt-fmt.pl ( view source; MetaCPAN )

n/env perl

use strict;
use warnings;

use File::Basename;
use JSON::MaybeXS qw/ JSON /;
use Data::Dumper;

my $pretty = 0;
if ($ENV{JSON_PRETTY}) { $pretty = 1; }

my %d_t_fmt = ();
my %d_fmt = ();
m

fmt;
}

my $comment = sprintf "# format db generated on %s from %s.\n", "".localtime, $dir;
print JSON->new->utf8(1)->pretty($pretty)->canonical(1)->encode({ comment => $comment, d_t_fmt => \%d_t_fmt,

Time-C ( C/CO/COFFEE/Time-C-0.024.tar.gz, COFFEE, 2017; MetaCPAN )

Time-C/lib/Time/C/Util.pm ( view source; MetaCPAN )

le::Share qw/ dist_file /;
use Function::Parameters qw/ :strict /;
use Exporter qw/ import /;
use JSON::MaybeXS;

our @EXPORT_OK = qw/ get_fmt_tok get_locale /;

my $loc_db;

fun get_fmt_tok ($fmt, $p

      open my $fh, '<', $fn
          or croak "Could not open $fn: $!";
        $loc_db = decode_json slurp $fh;
    }

    my $ret;
    if ($type eq 'weekdays') {
        $ret = $loc_db->{days}->{$l