File Coverage

blib/lib/PAB3/Crypt/XOR.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	2	4	50.0
condition	2	6	33.3
subroutine	5	5	100.0
pod			n/a
total	33	42	78.5

package PAB3::Crypt::XOR;
# =============================================================================
# Perl Application Builder
# Module: PAB3::Crypt::Xor
# Use "perldoc PAB3::Crypt::Xor" for documentation
# =============================================================================
use strict;
no strict 'refs';

use vars qw($VERSION @EXPORT_FNC);

BEGIN {
	$VERSION = '1.01';
	require XSLoader;
	XSLoader::load( __PACKAGE__, $VERSION );

	*encrypt = \&xs_aperiodic;
	*decrypt = \&xs_aperiodic;
	@EXPORT_FNC = qw(encrypt decrypt decrypt_hex encrypt_hex);
}

1;

sub import {
	my $pkg = shift;
	my $callpkg = caller();
	if( $_[0] and $pkg eq __PACKAGE__ and $_[0] eq 'import' ) {
		*{$callpkg . '::import'} = \&import;
		return;
	}
	# export symbols
	foreach( @_ ) {
		if( $_ eq ':default' ) {
			*{$callpkg . '::xor_' . $_} = \&{$pkg . '::' . $_} foreach @EXPORT_FNC;
			last;
		}
	}
}

__END__