Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (11 sloc) 364 Bytes
my class Regex {
multi method ACCEPTS(Regex:D \$self: Mu \$topic) {
pir::find_caller_lex__Ps('$/')
= $self(Cursor."!cursor_init"($topic, :c(0))).MATCH;
}
multi method Bool(Regex:D:) {
my $match = pir::find_caller_lex__pS('$_').match(self);
pir::find_caller_lex__Ps('$/') = $match;
$match.Bool()
}
}
Something went wrong with that request. Please try again.