X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6dcc57a0c5b4dc9bbd301bc37d4f4f4cc4d4556f..b3b23b8e45537cadbfc4b5d4e939f145931e0a4b:/browser.plp diff --git a/browser.plp b/browser.plp index 1c5bb85..dcc7688 100644 --- a/browser.plp +++ b/browser.plp @@ -83,8 +83,11 @@ while (my ($browser, $row) = each %{ $caniuse->{agents} }) { ]; } -print <<''; -

Alternate rendition of Fyrd's when can I use... page +my $ref = showlink('Can I use', 'https://caniuse.com/'); +$ref =~ s/(?=>)/ title="updated $_"/ + for map { s/[\sT].*//r } $caniuse->{-date} || (); +$ref = "Fyrd's $ref page"; +say '

Alternate rendition of '.$ref; my ($canihas, $usage); my $minusage = $get{threshold} // 1; @@ -106,7 +109,7 @@ given ($get{usage} // 'wm') { my $ref = $canihas->{-title} || 'unknown'; $ref = showlink($ref, $_) for $canihas->{-site} || $canihas->{-source} || (); - $ref .= " $_" for $canihas->{-date} || (); + $ref =~ s/(?=>)/ title="updated $_"/ for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; }