perl6 -e  'say Date.new("2019-01-20"); say Date.new("2019-01"); '
2019-01-20
Invalid Date string '2019-01'; use yyyy-mm-dd instead
  in block <unit> at -e line 1