use strict;
use warnings;

use Time::Piece;
use Time::Seconds;
use Test::More tests => 2;

my $last_update = ('2025-06-30 14:40:26');
cmp_ok days_since ($last_update), '<', 20, "$last_update is less than 20 days ago";

$last_update = ('2025-05-30 14:40:26');
cmp_ok days_since ($last_update), '>', 20, "$last_update is more than 20 days ago";

sub days_since {
    my $stamp = shift;
    my $tp = Time::Piece->strptime (substr ($stamp, 0, 10), '%Y-%m-%d');
    my $dayssince = (localtime() - $tp) / ONE_DAY;
}