Yet Another CPAN Grep

Text-JSCalendar ( B/BR/BRONG/Text-JSCalendar-0.02.tar.gz, BRONG, 2019; MetaCPAN )

Text-JSCalendar/utils/GenerateTimeZoneModule.pl ( view source; MetaCPAN )

perl

use strict;
use warnings;

use Data::Dumper;
use DateTime;
use JSON::XS;
use Test::Deep::NoTest;

my (
  %DaysOfWeek,
  $JSON,
  %Links,
  $Path,
  %RulesByZone,
  %Rules,
  %RuleMapping,
  %Zon

ning $ARGV[0] ($!)";

  my $JSON = do {local $/; <$Fh>};

  unless (($JSON || '') =~ /O.TimeZone/s) {
    die 'No timezone definitions found';
  }

  foreach my $Part ($JSON =~ /O.TimeZone.load\((.*?)

\);/smg) {
    my $Definitions = decode_json($Part);

    @Links{keys %{$Definitions->{link}}}  = values %{$Definitions->{link}};
    @Rules{keys %{$Definitions->{rules}}} = values %{$Definitions->{ru

Text-JSCalendar ( B/BR/BRONG/Text-JSCalendar-0.02.tar.gz, BRONG, 2019; MetaCPAN )

Text-JSCalendar/lib/Text/JSCalendar.pm ( view source; MetaCPAN )

ta::ICal::Entry::Alarm::Display;
use DateTime::Format::ICal;
use DateTime::TimeZone;
use JSON::XS qw(encode_json);
use Text::JSCalendar::TimeZones;
use Text::VCardFast qw(vcard2hash);
use XML::Spice;

IME::Types;
use Digest::SHA qw(sha1_hex);
use URI::Escape qw(uri_unescape);
use Data::Dumper;
use JSON;

use Text::JSCalendar::TimeZones;

# monkey patch like a bandit
BEGIN {
  my @properties = Data:

ions            => [2, 'object',    0, undef],
      isAllDay             => [0, 'bool',      0, $JSON::false],
      start                => [0, 'localdate', 1, undef],
      timeZone             =>