
Untitled
By: a guest on
May 8th, 2012 | syntax:
None | size: 0.73 KB | hits: 7 | expires: Never
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>);
}
}