Stringify Pod::Block::Declarator to its content

rakudo · Oct 3, 2011 · 356fe7a · 356fe7a
1 parent eb8d302
commit 356fe7a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/core/Pod.pm b/src/core/Pod.pm
@@ -22,6 +22,9 @@ my package Pod {
         method set_docee($d) {
             $!WHEREFORE = $d
         }
+        method Stringy {
+            ~@.content
+        }
     }
 
     class Block::Table is Block {

diff --git a/t/pod/why.t b/t/pod/why.t
@@ -1,11 +1,12 @@
 use Test;
-plan 12;
+plan 13;
 
 #= simple case
 class Simple {
 }
 
 is Simple.WHY.content, 'simple case';
+is ~Simple.WHY, 'simple case', 'stringifies correctly';
 
 #= giraffe
 class Outer {