Add as_text

git-svn-id: http://5thplane.com/svn/perl/Zen-Koans@120 e5f7e8ef-ac07-0410-9fef-9965b2c2b5fc
lukec · Mar 7, 2006 · 9b5ede1 · 9b5ede1
1 parent 0fc8711
commit 9b5ede1
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 2 deletions.
diff --git a/lib/Zen/Koan.pm b/lib/Zen/Koan.pm
@@ -65,6 +65,11 @@ $body</div>
 EOT
 }
 
+sub as_text {
+    my $self = shift;
+    return "\t$self->{title}\n\n$self->{body}";
+}
+
 sub AUTOLOAD {
     return <<EOT
 You are expecting too much from this koan.  

diff --git a/t/koan.t b/t/koan.t
@@ -46,13 +46,15 @@ Multi_paragraph_koan: {
 EOT
 }
 
-Koan_with_poem: {
-    my $k = Zen::Koan->new( body => <<EOK );
+sub poem_koan { Zen::Koan->new( body => <<EOK ) }
 Here is my poem:
   No more water in the pail!
   No more moon in the water!
 That is my poem.
 EOK
+
+Koan_with_poem: {
+    my $k = poem_koan();
     is $k->as_html, <<EOK;
 <div id='koan_title'>A koan by no other name</div>
 <div id='koan_body'>
@@ -66,6 +68,18 @@ EOK
 EOK
 }
 
+Koan_as_text: {
+    my $k = poem_koan();
+    is $k->as_text, <<EOK;
+	A koan by no other name
+
+Here is my poem:
+  No more water in the pail!
+  No more moon in the water!
+That is my poem.
+EOK
+}
+
 Less_specified_koans: {
     my $k = Zen::Koan->new;
     isa_ok $k, 'Zen::Koan';