[Bps-public-commit] r9194 - Text-Quoted

[ruz at bestpractical.com]

Author: ruz
Date: Tue Oct  2 19:39:58 2007
New Revision: 9194

Modified:
   Text-Quoted/Quoted.pm

Log:
* don't bloat namespace with functions from other modules

Modified: Text-Quoted/Quoted.pm
==============================================================================
--- Text-Quoted/Quoted.pm	(original)
+++ Text-Quoted/Quoted.pm	Tue Oct  2 19:39:58 2007
@@ -10,6 +10,7 @@
 our @EXPORT = qw(extract);
 
 use Text::Autoformat();    # Provides the Hang package, heh, heh.
+use Text::Tabs();
 
 =head1 NAME
 
@@ -179,9 +180,7 @@
     # If the user passes in a null string, we really want to end up with _something_
 
     # DETABIFY
-    my @rawlines = split /\n/, $text;
-    use Text::Tabs;
-    @rawlines = expand(@rawlines);
+    my @rawlines = Text::Tabs::expand( split /\n/, $text );
 
 
     # PARSE EACH LINE