☼ 林永忠 ☼

NAME

Text::Orientation - Text Rotator

SYNOPSIS

  use Text::Orientation;

  # OO

  $rot = Text::Orientation->new( TEXT => "Rotate me!" );
  print $rot->mirror('horizontal');
  print $rot->rotate(+1);


  # PerlIO layer

  use Text::Orientation method => 'mirror', param => 'horizontal', charset=> 'Big5';
  binmode(STDOUT, ":via(Text::Orientation)") or die;

  print BLAH BLAH BLAH ...

DESCRIPTION

This module enables one to rotate text. For example, Chinese can be written downwards or leftwards, but it is usually not convenient to do so on one's computer. With Text::Orientation one can easily deal with this problem.

PerlIO layer interface is also provided for easier coding.

METHODS

new

 $rot = Text::Orientation->new( TEXT => text or text's ref, CHARSET => blah);

Constructor. As for TEXT, either a string or a reference to an array of text will do. Please specify CHARSET If the input text is encoded in multibyte character set.

charset

Changes the encoding of the text. If not set, text is treated as encoded in single byte.

text

Changes the text to rotate.

transpose

Transposes text along the diagonal.

anti_transpose

Transposes text along the antidiagonal.

mirror

Generates the mirrored image of input string in two ways: 'vertical' or 'horizontal'.

rotate

Rotates the text. The parameter is an integer. Positive is for clockwise rotation, and negative for counterclockwise. E.g. -3 for 270-degree counterclockwise rotation

AUTHOR

xern <xern@cpan.org>

SEE ALSO

String::Multibyte

LICENSE

Released under The Artistic License