has_field<\/span> 'date_time'<\/span> =><\/span> (<\/span><\/div> type<\/span> =><\/span> 'Compound'<\/span>,<\/span><\/div> apply<\/span> =><\/span> [<\/span> <\/div> {<\/span><\/div> transform<\/span> =><\/span> sub <\/span>{<\/span> DateTime<\/span>-><\/span>new<\/span>(<\/span> shift<\/span> )<\/span> },<\/span><\/div> message<\/span> =><\/span> 'This is not a correct date'<\/span>,<\/span><\/div> }<\/span><\/div> {<\/span><\/div> check<\/span> =><\/span> sub <\/span>{<\/span> shift<\/span>-><\/span>day_of_week<\/span> ==<\/span> 1<\/span> },<\/span><\/div> message<\/span> =><\/span> 'Only Mondays allowed'<\/span>,<\/span><\/div> }<\/span><\/div> ],<\/span><\/div>);<\/span><\/div>has_field<\/span> 'date_time.year'<\/span> =><\/span> (<\/span> <\/div> type<\/span> =><\/span> 'Integer'<\/span>,<\/span><\/div>);<\/span><\/div>has_field<\/span> 'date_time.month'<\/span> =><\/span> (<\/span> <\/div> type<\/span> =><\/span> 'Integer'<\/span>,<\/span> <\/div> apply<\/span> =><\/span> [<\/span> {<\/span> check<\/span> =><\/span> sub <\/span>{<\/span> my<\/span> $month<\/span> =<\/span> shift<\/span>;<\/span> return<\/span> $month<\/span> ><\/span> 0<\/span> &&<\/span> $month<\/span> <=<\/span> 12<\/span> }<\/span> ]<\/span> <\/div>);<\/span><\/div>has_field<\/span> 'date_time.day'<\/span> =><\/span> (<\/span> <\/div> type<\/span> =><\/span> 'Integer'<\/span>,<\/span><\/div> apply<\/span> =><\/span> [<\/span> {<\/span> check<\/span> =><\/span> sub <\/span>{<\/span> my<\/span> $day<\/span> =<\/span> shift<\/span>;<\/span> return<\/span> $day<\/span> ><\/span> 0<\/span> &&<\/span> $day<\/span> <=<\/span> 31<\/span> }<\/span> ]<\/span><\/div>);<\/span><\/div><\/pre><\/div>\n \n <\/div>\n\n