RT #121990 DateTime/Date smartmatching

rakudo · Jul 30, 2014 · 509b1a4 · 509b1a4
1 parent 11e1937
commit 509b1a4
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Temporal.pm b/src/core/Temporal.pm
@@ -603,6 +603,10 @@ my class Date does Dateish {
     multi method perl(Date:D:) {
         "Date.new($.year.perl(), $.month.perl(), $.day.perl())";
     }
+
+    multi method ACCEPTS(Date:D: DateTime:D $dt) {
+        return $dt.year == $.year && $dt.month == $.month && $dt.day == $.day;
+    }
 }
 
 multi infix:<+>(Date:D $d, Int:D $x) {