Author: jonathan
Date: Wed Jan 7 11:49:45 2009
New Revision: 35171
Added:
branches/rvar2/languages/perl6/src/classes/Regex.pir
Modified:
branches/rvar2/languages/perl6/config/makefiles/root.in
Log:
[rakudo] Pop in a Regex class, so we don't epic fail on S06-multi/type-based.t.
Modified: branches/rvar2/languages/perl6/config/makefiles/root.in
==============================================================================
--- branches/rvar2/languages/perl6/config/makefiles/root.in (original)
+++ branches/rvar2/languages/perl6/config/makefiles/root.in Wed Jan 7
11:49:45 2009
@@ -73,6 +73,7 @@
src/classes/Block.pir \
src/classes/Routine.pir \
src/classes/Sub.pir \
+ src/classes/Regex.pir \
src/classes/Method.pir \
src/classes/Junction.pir \
src/classes/Failure.pir \
Added: branches/rvar2/languages/perl6/src/classes/Regex.pir
==============================================================================
--- (empty file)
+++ branches/rvar2/languages/perl6/src/classes/Regex.pir Wed Jan 7
11:49:45 2009
@@ -0,0 +1,31 @@
+## $Id: $
+
+=head1 TITLE
+
+Regex - Perl 6 Regex class
+
+=head1 DESCRIPTION
+
+This file sets up the Perl 6 C<Regex> class, the class for regexes.
+
+=cut
+
+.namespace ['Regex']
+
+.sub 'onload' :anon :load :init
+ .local pmc p6meta
+ p6meta = get_hll_global ['Perl6Object'], '$!P6META'
+ p6meta.'new_class'('Regex', 'parent'=>'Routine')
+.end
+
+=over 4
+
+=back
+
+=cut
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
