File Coverage

blib/lib/Text/Cipher.pm

Criterion	Covered	Total	%
statement	37	39	94.8
branch	3	6	50.0
condition			n/a
subroutine	11	12	91.6
pod	5	5	100.0
total	56	62	90.3

package Text::Cipher;

# This package is the base package for all Crypt::Ciphers, providing
# an encapsulated and easily inheritable framework for building
# ciphers.  See the POD for more details on the user side.

# The implementation of this program is currently based on the
# Regexp::Tr class and inherits from there.


# Boilerplate package beginning
use 5.006;
use strict;
use warnings;
use Carp;

# Implementation-specific imports and constants
use Regexp::Tr v0.05;
use constant {
    UPPERCASE => join("","A".."Z"),
    LOWERCASE => join("","a".."z"),
    NUMBERS   => join("",0..9)
    };

# UNIVERSAL class variables
our @ISA = qw(Regexp::Tr);
our $VERSION = "1.01";

BEGIN {
    *clean           = \&Regexp::Tr::flush;
    *encipher_scalar = \&Regexp::Tr::bind;
}

sub new {
    my($from, $to, $mods) = @_;
    $mods .= "d" unless($mods =~ /d/);
    return Regexp::Tr::new($from, $to, $mods);
}

sub encipher {
    my($self,$val) = (shift,shift);
    Regexp::Tr::bind($self, \$val);
    return $val;
}

sub encipher_string {
    my $obj = shift;
    return $obj->encipher(@_);
}

sub encipher_list {
    my $self = shift;
    return map { scalar($self->encipher($_)) } @_;
}

sub encipher_array {
    my($self,$ref) = @_;
    carp "Parameter passed is not an array ref" unless(ref($ref) eq "ARRAY");
    my @refarray = \(@{$ref});
    eval { map { scalar($self->encipher_scalar($_)) } @refarray };
    die "Error in encipher_array: $@" if($@);
}


return 1;
__END__