+ if (my $ts = $get{at}) {
+ $now = $now->strptime($ts, '%Y-%m-%d');
+ say "Compatibility details emulated for <em>$ts</em>.";
+ }
+ my $ts = $now->strftime('%F');
+ my @versions = sort grep { $info->{$_}{release} le $ts } keys %{$info};
+
+ # perlpolicy: «We "officially" support the two most recent stable release
+ # series. [...] we will attempt to fix critical issues»
+ $info->{ $versions[-2] }{versum} //= "active core support";
+ $info->{ $versions[-1] }{versum} //= "latest stable release";
+
+ # perlpolicy: «we will attempt to fix critical issues in the two most
+ # recent stable 5.x release series»