diff options
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/Text-Tabs/lib/Text/Tabs.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/cpan/Text-Tabs/lib/Text/Tabs.pm b/cpan/Text-Tabs/lib/Text/Tabs.pm index d3c06a08c1..49ec775b58 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 |