Implement .Pos <-> .Int coercing

rakudo · Jul 27, 2015 · 9ed640c · 9ed640c
1 parent ed945eb
commit 9ed640c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -272,6 +272,9 @@ my class Cool { # declared in BOOTSTRAP
     proto method Int(|) { * }
     multi method Int()  { self.Numeric.Int }
 
+    proto method Pos(|) { * }
+    multi method Pos()  { self.Numeric.Int.Pos }
+
     proto method UInt(|) { * }
     multi method UInt()  {
         my $got := self.Int;

diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -28,6 +28,7 @@ my class Int does Real { # declared in BOOTSTRAP
     }
 
     method Int() { self }
+    multi method Pos(Int:D:) { nqp::box_i(nqp::unbox_i(self),Pos) }
 
     multi method Str(Int:D:) {
         nqp::p6box_s(nqp::tostr_I(self));
@@ -165,6 +166,7 @@ my class Int does Real { # declared in BOOTSTRAP
 my class Pos is Int {
     multi method Bool(Pos:U:) { False };
     multi method Bool(Pos:D:) { True };
+    multi method Int(Pos:D:)  { nqp::box_i(nqp::unbox_i(self),Int) }
 }
 
 multi sub prefix:<++>(Int:D $a is rw) {