From ebbe5ae8b39ec255669c924bf9bb8b4722f120c3 Mon Sep 17 00:00:00 2001 From: Solomon Foster Date: Wed, 2 Sep 2009 08:47:19 -0400 Subject: [PATCH] Add Rat.prefix<->. --- 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 7fc8329..b2fc817 100644 --- a/src/setting/Rat.pm +++ b/src/setting/Rat.pm @@ -58,6 +58,10 @@ multi sub infix:<->(Int $a, Rat $b) { Rat.new($a * $b.denominator - $b.numerator, $b.denominator); } +multi sub prefix:<->(Rat $a) { + Rat.new(-$a.numerator, $a.denominator); +} + multi sub infix:<*>(Rat $a, Rat $b) { Rat.new($a.numerator * $b.numerator, $a.denominator * $b.denominator); } -- 1.6.0.5