File Coverage

blib/lib/Crypt/Rot47.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	29	30	96.6

package Crypt::Rot47;
use strict;
use warnings;
use base 'Exporter';
our @EXPORT_OK = qw(rot47);

our $VERSION = 0.06;

sub new
{
    my ($class) = @_;

    # This object is basically nothing,
    # and I provide an OOP interface just
    # to be API-consistent with other
    # similar Crypt:: modules.
    return bless [], $class;
}

sub encrypt
{
    return rot47($_[1]);
}

sub decrypt
{
    return rot47($_[1]);
}

sub rot47
{
    my ($text) = @_;
    return '' if !defined $text;

    # Rotate every character from decimal 33 '!'
    # through 126 '~' by 47 positions
    $text =~ tr/!-~/P-~!-O/;

    return $text;
}

1;
__END__