bisectable6

query

sub MAIN (DateTime(Str) :f(:$from) = ~Date.today.DateTime.earlier(:1day), DateTime(Str) :t(:$to) where * > $from = ~Date.today.DateTime) { say "$from - $to"; }

result

¦«2015.12,2016.01.1,2016.02,2016.03,2016.04,2016.05,2016.06,2016.07.1,
  2016.08.1,2016.09»:
Method 'DateTime' not found for invocant of class 'Date'
  in sub MAIN at /tmp/sFzqrCZ_ZW line 1
  in block <unit> at /tmp/sFzqrCZ_ZW line 1

 «exit code = 1»
¦«2016.10,2016.11,2016.12,2017.01,2017.02,2017.03,2017.04.3,2017.05,
  2017.06,2017.07,2017.08,2017.09,2017.10,2017.11,2017.12»:
Usage:
  /tmp/sFzqrCZ_ZW [-f|--from=<Str>] [-t|--to=<Str>] 
 «exit code = 2»
¦«2018.01,2018.02.1,2018.03,2018.04.1,2018.05,2018.06,2018.08,2018.09»:
Usage:
  /tmp/sFzqrCZ_ZW [-f|--from=<Str>] [-t|--to=<Str where { ... }>] 
 «exit code = 2»
¦«2018.10,2018.11,2018.12,2019.03.1,2019.07.1,2019.11,2020.01,2020.02.1»:
Usage:
  /tmp/sFzqrCZ_ZW [-f|--from=<Str>] [-t|--to=<Str where { ... }>]
 «exit code = 2»
¦«2020.05.1,2020.06,2020.07,2020.08.2,2020.09,2020.10,2020.11,2020.12,
  2021.02.1»:
2021-03-29T00:00:00Z - 2021-03-30T00:00:00Z

¦«2021.03,HEAD(76022f6)»:
Type check failed in binding to parameter '<anon>'; expected Any but got Mu (Mu)
  in block <unit> at /tmp/sFzqrCZ_ZW line 1

 «exit code = 1»