view release on metacpan or  search on metacpan

lib/Acme/Text/Viceversa.pm  view on Meta::CPAN

package Acme::Text::Viceversa;

use 5.008001;
use strict;
use warnings;
use Carp;
use utf8;

our $VERSION = "0.07";

sub new {
    my $class = shift;
    return bless {}, $class;
}

my %ascii = (
    q' ' => ' ',    # same!
    q'!' => '¡',
    q'"' => '„',
    q'#' => '#',    # same!
    q'$' => '$',    # same!
    q'%' => '%',    # same!
    q'&' => 'â…‹',
    q|'| => '͵',
    q|(| => ')',
    q|)| => '(',
    q|*| => '*',    # same!
    q|+| => '+',    # same!
    q|,| => '‘',
    q|-| => '-',    # same!
    q|.| => 'Ë™',
    q|/| => '/',    # same!

    q|0| => '0',    # same!
    q|1| => '⇂',
    q|2| => 'ᘔ',
    q|3| => 'ε',
    q|4| => '⇁⃓',
    q|5| => 'ᔕ',
    q|6| => '9',
    q|7| => 'L',
    q|8| => '8',    # same!
    q|9| => '6',
    q|:| => ':',    # same!
    q|;| => 'â‹…Ì•',
    q|<| => '>',
    q|=| => '=',    # same!
    q|>| => '<',
    q|?| => '¿',

    q|@| => '@',    # Can't be rotate
    q|A| => '∀',
    q|B| => 'á—º',
    q|C| => 'Ↄ',
    q|D| => 'p',
    q|E| => 'ÆŽ',
    q|F| => 'Ⅎ',
    q|G| => '⅁',
    q|H| => 'H',    # same!
    q|I| => 'I',    # same!
    q|J| => 'á’‹',
    q|K| => '丬',
    q|L| => 'á’£',
    q|M| => 'W',
    q|N| => 'N',    # same!
    q|O| => 'O',    # same!

    q|P| => 'Ô€',
    q|Q| => 'Ό',
    q|R| => 'È¢',
    q|S| => 'S',    # same!
    q|T| => '⊥',
    q|U| => 'á‘Ž',