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 my $data = from_json($source);
  17 my $update = eval { stat(${^LAST_FH} // $ARGV)->mtime }
  18         or warn "Could not determine input time\n";
  19 $data->{-date} = Time::Piece->new($update)->datetime;
  20
  21 print pp($data);
  22
  23 __END__
  24
  25 =head1 NAME
  26
  27 mkcaniuse - Turn Javascript data into an equivalent Perl structure
  28
  29 =head1 SYNOPSIS
  30
  31         tools/mkcaniuse data.json >browser-support.inc.pl
  32