Remove unused sub in Perl6/Pod.nqp

rakudo · Feb 19, 2014 · 354419d · 354419d
1 parent efce067
commit 354419d
Showing 1 changed file with 0 additions and 14 deletions.
diff --git a/src/Perl6/Pod.nqp b/src/Perl6/Pod.nqp
@@ -68,20 +68,6 @@ class Perl6::Pod {
         return $past.compile_time_value;
     }
 
-#    our sub code_block($/) {
-#        my @children := [];
-#        my $config := $<pod_configuration>.ast;
-#        for $<pod_string> {
-#            @children.push($_.ast);
-#        }
-#        my $content := serialize_array(@children);
-#        my $past := serialize_object(
-#            'Pod::Block::Code', :config($config),
-#            :content($content.compile_time_value),
-#        );
-#        return $past.compile_time_value;
-#    }
-
     our sub config($/) {
         my $type := $*W.add_constant('Str', 'str', ~$<type>);
         return serialize_object(