Changeset 75 in text-formbuilder

Timestamp:

03/25/05 12:03:52 (20 years ago)

Author:

peichman

Message:

completed and documented the parse_handle method

File:

• trunk/lib/Class/ParseText/Base.pm (modified) (3 diffs)

trunk/lib/Class/ParseText/Base.pm

@@ -49 +49 @@
 }
 
-#TODO: get this working
 sub parse_handle {
     my ($self, $fh) = @_;
@@ -57 +56 @@
     
     my $src;
-    while ($_ = readline($fh)) { $src .= $_ }
-    warn $src;
+    local $/ = undef;
+    $src = readline($fh);
+    close $fh;
     return $self->parse_text($src);
 }
@@ -152 +152 @@
 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