Skip to content

Instantly share code, notes, and snippets.

@tadzik
Created August 5, 2011 20:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/1128443 to your computer and use it in GitHub Desktop.
Save tadzik/1128443 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Pod.pm b/src/Perl6/Pod.pm
index 201a6dd..c2de424 100644
--- a/src/Perl6/Pod.pm
+++ b/src/Perl6/Pod.pm
@@ -5,6 +5,14 @@ class Perl6::Pod {
my $true := $*ST.add_constant('Int', 'int', 1)<compile_time_value>;
my $doc := $*ST.add_constant('Str', 'str', $with)<compile_time_value>;
$*ST.apply_trait('&trait_mod:<is>', $what, $doc, :docs($true));
+
+ # add it to $=POD
+ my $cont := serialize_array([$doc])<compile_time_value>;
+ my $block := serialize_object(
+ 'Pod::Block::Declarator',
+ :WHEREFORE($what), :content($cont),
+ );
+ $*POD_BLOCKS.push($block<compile_time_value>);
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment