Skip to content

Commit

Permalink
Remove invalid Pod
Browse files Browse the repository at this point in the history
S26 states:
After the typename, the rest of the C<=begin> marker line is treated as
configuration information for the block. This information is used in
different ways by different types of blocks, but is always specified
using Perl6-ish option pairs.

We don't parse the block configuration information yet, plus they're not
needed anyway there.
  • Loading branch information
Tadeusz Sośnierz committed May 22, 2011
1 parent 4398a2e commit 30ebf78
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 8 deletions.
12 changes: 8 additions & 4 deletions src/core/Enum.pm
@@ -1,6 +1,7 @@
augment class Enum {

=begin item ACCEPTS()
=begin item
ACCEPTS()
Called from smartmatches '$_ ~~ X'.
Expand All @@ -20,7 +21,8 @@ Else it delegates to a method call '.:Xkey(Xval)'
return (?$topic."$meth_name"()) === (?$.value);
}

=begin item fmt
=begin item
fmt
our Str multi Pair::fmt ( Str $format = "%s\t%s" )
Expand All @@ -32,7 +34,8 @@ the key and value.
return sprintf($format, $.key, $.value);
}

=begin item kv
=begin item
kv
Return key and value as a 2-element List.
Expand All @@ -41,7 +44,8 @@ Return key and value as a 2-element List.
($.key, $.value);
}

=begin item pairs
=begin item
pairs
=end item
method pairs() {
Expand Down
8 changes: 4 additions & 4 deletions src/core/Routine.pm
@@ -1,7 +1,7 @@
augment class Routine {

=begin item cando
=begin item
cando
=end item
method cando(Capture $capture) {
my @candidates = self.candidates;
Expand All @@ -12,8 +12,8 @@ augment class Routine {
@can
}

=begin item candidates
=begin item
candidates
=end item
method candidates() {
@(self)
Expand Down

0 comments on commit 30ebf78

Please sign in to comment.