tools/mkcaniuse

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