Text::Bidi::CapRTL - bidi algorithm with RTL capital letters

Text-Bidi documentation Contained in the Text-Bidi distribution.

Index

Code Index:

NAME

Top

Text::Bidi::CapRTL - bidi algorithm with RTL capital letters

SYNOPSIS

Top

        use Text::Bidi::CapRTL qw(log2vis);

        print scalar log2vis('car is THE CAR in arabic');
        # prints 'car is RAC EHT in arabic'

DESCRIPTION

Top

This is a sub class of Text::Bidi that overrides log2vis() in Text::Bidi in that CAPITAL letters in the input and output strings are interpreted as right-to-left. It is mainly useful for testing and demonstration. The new log2vis() function has exactly the same interface.

Loading this package will make all procedural calls to log2vis() (without an explicit object) to use this convention.

SEE ALSO

Top

Text::Bidi

AUTHOR

Top

Moshe Kamensky, mailto:kamensky@cpan.org

COPYRIGHT & LICENSE

Top

Copyright 2006 Moshe Kamensky, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Text-Bidi documentation Contained in the Text-Bidi distribution. 
package Text::Bidi::CapRTL;

use warnings;
use strict;
use Text::Bidi qw(caprtl_to_unicode unicode_to_caprtl);
use base qw(Text::Bidi);

our @EXPORT_OK = qw(log2vis);

$Text::Bidi::GlobalClass = __PACKAGE__;

sub log2vis {
    my $self = Text::Bidi::S(@_);
    my $in = caprtl_to_unicode(shift);
    my ($out, @res);
    if ( wantarray ) {
        ($out, @res) = $self->SUPER::log2vis($in, @_);
    } else {
        $out = $self->SUPER::log2vis($in, @_);
    }
    $out = unicode_to_caprtl($out);
    wantarray ? ($out, @res) : $out;
}


1; # End of Text::Bidi::CapRTL