File Coverage

blib/lib/Text/Toalpha.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	23	25	92.0

package Text::Toalpha;

use 5.008001;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(toalpha fromalpha) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw();

our $VERSION = '0.02';

# NOTE: This module is NOT a good example of how to do this kind of task.
# Also, the purpose of it is not very apperant.

# This code is messy, but I don't know a better way to do this.
my @table = ( 'aa' .. 'zz' );
my %out_table;

# Build %out_table.  Messier.  If you are a clean freak, abort now ;-).
for (0 .. $#table) {
	$out_table{$table[$_]} = chr($_);
}

sub toalpha {
	my $in = shift;
	my $out = $in;
	$out =~ s/(.)/$table[ord($1)]/g;
	return $out;
}

sub fromalpha {
	my $in = shift;
	my $out = $in;
	$out =~ s/(..)/$out_table{$1}/eg;
	return $out;
}

1;
__END__