File Coverage

blib/lib/Crypt/OpenBSD/Blowfish.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	6	8	75.0
condition			n/a
subroutine	6	8	75.0
pod	3	5	60.0
total	32	40	80.0

package Crypt::OpenBSD::Blowfish;

use strict;
use warnings;
use Carp qw( croak );

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Crypt::OpenBSD::Blowfish ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

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

our @EXPORT = qw(

);

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Crypt::OpenBSD::Blowfish', $VERSION);

# Preloaded methods go here.

sub blocksize { 8 }
sub keysize { 0 }
sub minkeysize { 4 }
sub maxkeysize { 56 }

sub new {
	my $class = shift;
	my $key = shift;
        if ($key) {
		croak "Key must be at least " . $class->minkeysize . " octets"
			if length($key) < $class->minkeysize;
		$key = substr($key,0,$class->keymaxsize)
			if length($key) > $class->maxkeysize;
	}
	$key ? Crypt::OpenBSD::Blowfish::init_key($key) :
		Crypt::OpenBSD::Blowfish::init();
}

1;
__END__