From 9e1c4187bfb6b5eca495a64c281d2102cc5bfac8 Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Mon, 31 Aug 2009 05:00:14 -0400
Subject: [PATCH] Added div operator to create Rat objects.

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

diff --git a/src/setting/Rat.pm b/src/setting/Rat.pm
index 93021cd..a77fcd3 100644
--- a/src/setting/Rat.pm
+++ b/src/setting/Rat.pm
@@ -15,6 +15,10 @@ class Rat {
     multi method Num() { $!numerator + 0.0 / $!denominator }
 }
 
+multi sub infix:<div>(Int $a, Int $b) {
+    Rat.new($a, $b);
+}
+
 multi sub infix:<+>(Rat $a, Rat $b) {
     Rat.new($a.numerator * $b.denominator + $b.numerator * $a.denominator,
             $a.denominator * $b.denominator );
-- 
1.6.0.5