tools/mkcaniuse

   1 #!/usr/bin/env perl
   2 use 5.014;
   3 use warnings;
   4
   5 use Data::Dump 'pp';
   6 use JSON;
   7 use File::stat;
   8 use Time::Piece;
   9
  10 our $VERSION = '1.01';
  11
  12 local $/;  # slurp
  13 my $source = readline;
  14
  15 $JSON::PP::false = 0;
  16 $JSON::PP::true  = 1;
  17
  18 my $data = from_json($source);
  19 my $update = eval { stat(${^LAST_FH} // $ARGV)->mtime }
  20         or warn "Could not determine input time\n";
  21 $data->{-date} = Time::Piece->new($update)->datetime;
  22
  23 say "# automatically generated by $0";
  24 print '+', pp($data);
  25
  26 __END__
  27
  28 =head1 NAME
  29
  30 mkcaniuse - Turn Javascript data into an equivalent Perl structure
  31
  32 =head1 SYNOPSIS
  33
  34         tools/mkcaniuse data.json >browser-support.inc.pl
  35