10 our $VERSION = '1.01';
13 my $source = readline;
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;
23 say "# automatically generated by $0";
30 mkcaniuse - Turn Javascript data into an equivalent Perl structure
34 tools/mkcaniuse data.json >browser-support.inc.pl