NAME

IO::Extended - more print functions

SYNOPSIS

  use IO::Extended ':all';

    printl 'foo bar';

    println 'foo bar';

    printfln 'foo %s', 'bar';

    $str = sprintfln 'foo %s', 'bar';

    warnfln 'foo %s', 'bar';

    diefln 'foo %s', 'bar';

    tabs 5;

    ind 1;

    indn;

    indb;

    indstr;

DESCRIPTION

IO::Extended contains a bunch of print-like functions, which automatically add newline characters to the string.

EXPORT

None by default.

This functions of this module need to be exported before use. Use the ':all' syntax for automatically adding the complete set.

VARIABLES

$IO::Extended::space

$IO::Extended::tabsize

Scalars for constructing tabs. Indentation is done via printing space x ( indentation * tabsize ).

FUNCTIONS

printl

Same as normal print, but with indentation.

println

Same as normal print, but adds newline character to the end.

printfln

sprintfln

Same as normal (s)printf, but adds newline character to the FORMAT string (Result).

warnfln

As warn, but accepts a FORMAT string like printfln.

diefln

As die, but accepts a FORMAT string like printfln.

ind( $integer )

Sets the indentation value.

indn

Increases the indentation one value up.

indb

Decreases the indentation on back in its history.

tabs( $integer )

Sets the tabsize for indentation. Returns the actual tabsize if parameter is omitted.

indstr

Returns the absolute indentation space.

FORMAT (*printf*)

Barely all format is forwared to the perl internal printf like functions, but one is translated.

%S or %D in the format string will get translated to '%s' or '%d'. It should help writing

 printfln "Your given string %S is broken.", $string;

[Note] $string could contains confusing whitespaces, for example.

SUPPORT

By author. Ask comp.lang.perl.misc or comp.lang.perl.module if you have very general questions.

If all this does not help, contact me under the emailadress below.

AUTHOR

Murat Uenalan, muenalan@cpan.org

COPYRIGHT

Copyright (c) 1998-2002 Murat Uenalan. Germany. All rights reserved.

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

SEE ALSO

perl(1). perlfunc