File Coverage

blib/lib/Crypt/NULL.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	6	50.0
condition	2	6	33.3
subroutine	6	6	100.0
pod	3	3	100.0
total	32	39	82.0

# $Id: NULL.pm,v 1.02 2001/05/04 08:04:27 ams Exp $
# Copyright 2001 Abhijit Menon-Sen

package Crypt::NULL;

use strict;
use Carp;
use vars qw( $VERSION );

($VERSION) = q$Revision: 1.02 $ =~ /(\d+\.\d+)/;

sub keysize   () { 16 }
sub blocksize () { 16 }

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

    croak "Usage: ".__PACKAGE__."->new(\$key)" unless $key;
    return bless {}, $class;
}

sub encrypt
{
    my ($self, $data) = @_;

    croak "Usage: \$cipher->encrypt(\$data)" unless ref($self) && $data;
    return $data;
}

sub decrypt
{
    my ($self, $data) = @_;

    croak "Usage: \$cipher->decrypt(\$data)" unless ref($self) && $data;
    return $data;
}

1;

__END__