gistfile1.pl

package utils::rewekati::DateHelpers;

use base 'Exporter';
our @EXPORT_OK = qw( eu_date_to_int duration_between getDatumOut dateIsBetween );

use utils::Date::Calc::Cached qw( Delta_Days );

{
    my %int_date_cache;
    sub eu_date_to_int {
        return $int_date_cache{ $_[0] } ||= make_eu_date_to_int( @_ )
    }
}

{
    my %duration_cache;
    sub duration_between {
        return $duration_cache{ "@_" } ||= make_duration( @_ )
    }
}

gistfile2.pl

package utils::rewekati::DateHelpers;

use base 'Exporter';
our @EXPORT_OK = qw( eu_date_to_int duration_between getDatumOut dateIsBetween );

use utils::Date::Calc::Cached qw( Delta_Days );

sub eu_date_to_int {
    state %int_date_cache;
    return $int_date_cache{ $_[0] } ||= make_eu_date_to_int( @_ )
}

sub duration_between {
    state %duration_cache;
    return $duration_cache{ "@_" } ||= make_duration( @_ )
}