countries: rename ez title to eurozone
[sheet.git] / 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