get rid of match-bool cheat

rakudo · Jul 13, 2010 · f0dbe32 · f0dbe32
1 parent ae4538a
commit f0dbe32
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 9 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -223,7 +223,6 @@ CORE_SOURCES = \
   src/core/Grammar.pm \
   src/core/Substitution.pm \
   src/core/system.pm \
-  src/cheats/match-bool.pm \
   src/cheats/process.pm \
   src/core/Date.pm \
   src/core/Temporal.pm \

diff --git a/src/cheats/match-bool.pm b/src/cheats/match-bool.pm
diff --git a/src/core/Match.pm b/src/core/Match.pm
@@ -19,6 +19,13 @@ class Match is Regex::Match is Cool does Positional does Associative {
         ~self.Regex::Match::Str;
     }
 
+    method Bool() {
+        $.from < $.to;
+    }
+
+    method defined() {
+        $.from < $.to;
+    }
 
     method at_key($key) {
         Q:PIR {