10 our $VERSION = '1.02';
13 my $source = readline;
18 my $data = decode_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;
23 for (values %{ $data->{data} }) {
24 delete @{$_}{qw[ usage_perc_a usage_perc_y ]};
26 for (values %{ $data->{agents} }) {
27 delete $_->{usage_global};
28 shift @{ $_->{versions} } while !defined $_->{versions}->[0];
31 say "# automatically generated by $0";
38 mkcaniuse - Turn Javascript data into an equivalent Perl structure
42 tools/mkcaniuse data.json >browser-support.inc.pl