use Time::Piece;
use Time::Seconds;
- my @versions = sort keys %{$info};
my $now = Time::Piece->new;
- $now = $now->strptime($_, '%Y-%m-%d') for $get{at} // ();
+ 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»