subtype 'ModernDateTime'
   => as 'DateTime'
   => where { $_->year() >= 1980 }
   => message { 'The date is not modern enough' };