Author: infinoid
Date: Tue May 6 09:21:20 2008
New Revision: 27348
Modified:
trunk/languages/perl6/src/classes/Grammar.pir
trunk/languages/perl6/src/classes/Num.pir
Log:
[rakudo] Grammar.pir and Num.pir: stub in enough POD to prevent t/doc/pod.t
failures.
Modified: trunk/languages/perl6/src/classes/Grammar.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Grammar.pir (original)
+++ trunk/languages/perl6/src/classes/Grammar.pir Tue May 6 09:21:20 2008
@@ -12,6 +12,15 @@
.namespace [ 'Grammar' ]
+
+=head1 SUBROUTINES
+
+=over 4
+
+=item onload()
+
+=cut
+
.sub 'onload' :anon :init :load
load_bytecode "PGE.pbc"
$P0 = subclass 'PGE::Grammar', 'Grammar'
@@ -52,6 +61,10 @@
.end
+=back
+
+=cut
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: trunk/languages/perl6/src/classes/Num.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Num.pir (original)
+++ trunk/languages/perl6/src/classes/Num.pir Tue May 6 09:21:20 2008
@@ -8,6 +8,15 @@
.namespace [ 'Num' ]
+
+=head1 SUBROUTINES
+
+=over 4
+
+=item onload()
+
+=cut
+
.sub 'onload' :anon :init :load
$P0 = subclass 'Float', 'Num'
$P1 = get_hll_global 'Any'
@@ -19,6 +28,10 @@
.end
+=item ACCEPTS()
+
+=cut
+
.sub 'ACCEPTS' :method
.param num topic
.return 'infix:=='(topic, self)
@@ -37,6 +50,10 @@
.end
+=back
+
+=cut
+
# Local Variables:
# mode: pir
# fill-column: 100
