added (forgotten) overload.pm

rakudo-p5 · Jun 15, 2013 · cc04ca9 · cc04ca9
1 parent 79e5ea5
commit cc04ca9
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/lib/Perl5/overload.pm b/lib/Perl5/overload.pm
@@ -0,0 +1,21 @@
+
+use v6.0.0;
+
+# http://perldoc.perl.org/overload.html
+
+sub EXPORT(*@ops) {
+    my %o;
+    for @ops -> $k, $v {
+        my $sub := $v ~~ Str
+                ?? ::($v)
+                !! $v;
+        given $k {
+            when '""' { %o{'&prefix:<P5~>'} := $sub; }
+        }
+    }
+    %o
+}
+
+module overload {
+
+}