view release on metacpan or  search on metacpan

lib/Acme/Greek.pm  view on Meta::CPAN

package Acme::Greek;
use strict;
use utf8;

my $latin  = q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz};
my $greek  = q{ΑΒΨΔΕΦΓΗΙΞΚΛΜΝΟΠQΡΣΤΘΩWΧΥΖαβψδεφγηιξκλμνοπqρστθωςχυζ};

sub encode {$_ = shift; eval "tr/$latin/$greek/"; $_}
sub decode {$_ = shift; eval "tr/$greek/$latin/"; $_}
open 0 or print "can't encode '$0'\n" and exit;
binmode 0, ':utf8';
(my $code = join '', <0>) =~ s/^\s*use\s+Acme::Greek\s*;\s*//ms;
do {eval decode $code; exit;} if $code =~ /[$greek]/;
open 0, ">$0" or print "ψαν'τ ενψοδε '$0'"; 
binmode 0, ':utf8';
print {0} "use Acme::Greek;\n", encode $code and exit;

=head1 NAME

Acme::Greek - Ιτ'σ αλλ γρεεκ το με!

=head1 VERSION

Version 1.0