Types.pm

package MyApp::Types;

use DateTime;
use MooseX::Types -declare => [qw(
    DateTimeAfterToday
)];

# Dates
subtype DateTimeAfterToday,
    as 'DateTime',
    where {
        my $val = shift;
        my $dt = DateTime->now;
        if($val->clone->add(days => 1) > $dt) {
            return 1;
        }

        return 0
    };

1;