Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on May 8th, 2012  |  syntax: None  |  size: 0.73 KB  |  hits: 7  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. diff --git a/src/Perl6/Pod.pm b/src/Perl6/Pod.pm
  2. index 201a6dd..c2de424 100644
  3. --- a/src/Perl6/Pod.pm
  4. +++ b/src/Perl6/Pod.pm
  5. @@ -5,6 +5,14 @@ class Perl6::Pod {
  6.              my $true := $*ST.add_constant('Int', 'int', 1)<compile_time_value>;
  7.              my $doc  := $*ST.add_constant('Str', 'str', $with)<compile_time_value>;
  8.              $*ST.apply_trait('&trait_mod:<is>', $what, $doc, :docs($true));
  9. +
  10. +            # add it to $=POD
  11. +            my $cont  := serialize_array([$doc])<compile_time_value>;
  12. +            my $block := serialize_object(
  13. +                'Pod::Block::Declarator',
  14. +                :WHEREFORE($what), :content($cont),
  15. +            );
  16. +            $*POD_BLOCKS.push($block<compile_time_value>);
  17.          }
  18.      }