From 6d69e8b55c0533ba937ff7e65394db025ab61551 Mon Sep 17 00:00:00 2001
From: SF <last.of.the.careless.men@gmail.com>
Date: Sun, 30 Aug 2009 16:31:27 -0400
Subject: [PATCH] Implement Complex version of **.

---
 src/setting/Complex.pm |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/src/setting/Complex.pm b/src/setting/Complex.pm
index 68a54df..1060a72 100644
--- a/src/setting/Complex.pm
+++ b/src/setting/Complex.pm
@@ -94,5 +94,12 @@ multi sub prefix:<->(Complex $a) {
     }
 }
 
+multi sub infix:<**>(Complex $a, $b) is default {
+    ($a.log * $b).exp;
+}
+
+multi sub infix:<**>($a, Complex $b) {
+    ($a.log * $b).exp;
+}
 
 # vim: ft=perl6
-- 
1.6.0.5