Introduce Pos is Int where 0 is still True

rakudo · Jul 24, 2015 · 9582ebc · 9582ebc
1 parent af22999
commit 9582ebc
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -162,6 +162,8 @@ my class Int does Real { # declared in BOOTSTRAP
     }
 }
 
+my class Pos is Int { multi method Bool(Pos:) { self.defined } }
+
 multi sub prefix:<++>(Int:D $a is rw) {
     $a = nqp::add_I(nqp::decont($a), 1, Int);
 }