From: Gisle Aas <gisle@aas.no>
Date: Sun, 18 Apr 2010 20:58:02 +0000 (+0200)
Subject: Documentation tweaks to Text::Tabs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6e2320c520b8d610a864cd42aece1f0df2db895;p=p5sagit%2Fp5-mst-13.2.git

Documentation tweaks to Text::Tabs
---

diff --git a/cpan/Text-Tabs/lib/Text/Tabs.pm b/cpan/Text-Tabs/lib/Text/Tabs.pm
index d3c06a0..49ec775 100644
--- a/cpan/Text-Tabs/lib/Text/Tabs.pm
+++ b/cpan/Text-Tabs/lib/Text/Tabs.pm
@@ -95,12 +95,16 @@ Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1)
 
 =head1 SYNOPSIS
 
-  use Text::Tabs;
+  use Text::Tabs qw(expand unexpand);
 
-  $tabstop = 4;  # default = 8
   @lines_without_tabs = expand(@lines_with_tabs);
   @lines_with_tabs = unexpand(@lines_without_tabs);
 
+  {
+      local $Text::Tabs::tabstop = 4;  # default is 8
+      @lines_without_tabs = expand(@lines_with_tabs);
+  }
+
 =head1 DESCRIPTION
 
 Text::Tabs does about what the unix utilities expand(1) and unexpand(1) 
@@ -109,6 +113,12 @@ the appropriate number of spaces.  Given a line with or without tabs in
 it, unexpand will add tabs when it can save bytes by doing so (just
 like C<unexpand -a>).  Invisible compression with plain ASCII! 
 
+The global variable C<$Text::Tabs::tabstop> controls how many columns
+positions apart each tabstop are.  The default is 8.
+
+The functions expand(), unexpand() as well as the variable $tabstop
+are exported by default.
+
 =head1 EXAMPLE
 
   #!perl