Index: trunk/lib/Class/ParseText/Base.pm
===================================================================
--- trunk/lib/Class/ParseText/Base.pm	(revision 55)
+++ trunk/lib/Class/ParseText/Base.pm	(revision 75)
@@ -49,5 +49,4 @@
 }
 
-#TODO: get this working
 sub parse_handle {
     my ($self, $fh) = @_;
@@ -57,6 +56,7 @@
     
     my $src;
-    while ($_ = readline($fh)) { $src .= $_ }
-    warn $src;
+    local $/ = undef;
+    $src = readline($fh);
+    close $fh;
     return $self->parse_text($src);
 }
@@ -152,4 +152,11 @@
 Parses the contents of of the file C<$filename>. Returns the parser object.
 
+=head2 parse_handle
+
+    $p->parse_handle($fh);
+
+Slurps the remainder of the file handle C<$fh> and parses the contents.
+Returns the parser object.
+
 =head2 parse_array