diff --git a/build/Makefile.in b/build/Makefile.in index 525d61c5fa4..3c1d50cc185 100644 --- 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 deleted file mode 100644 index 2ffd1775a74..00000000000 --- a/src/cheats/match-bool.pm +++ /dev/null @@ -1,8 +0,0 @@ -INIT { - Regex::Match.^add_method('Bool', method () { - self.to >= self.from - }); - Regex::Match.^add_method('defined', method () { - self.to >= self.from - }); -} diff --git a/src/core/Match.pm b/src/core/Match.pm index 0f2bc694be7..335aed0f805 100644 --- 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 {