File Coverage

blib/lib/Deep/Encode.pm

Criterion	Covered	Total	%
statement	10	20	50.0
branch			n/a
condition			n/a
subroutine	4	9	44.4
pod	0	7	0.0
total	14	36	38.8

package Deep::Encode;
use strict;
use warnings;

require Exporter;
require Encode;

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 Deep::Encode ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = (
	all => [ qw(
		deep_utf8_check
		deep_utf8_off
		deep_utf8_on
		deep_utf8_upgrade
		deep_utf8_downgrade
		deep_utf8_decode
	   	deep_utf8_encode
	   	deep_from_to
		deep_encode
		deep_decode

		deep_str_clone

		deepc_utf8_upgrade
		deepc_utf8_downgrade
		deepc_utf8_decode
	   	deepc_utf8_encode
	   	deepc_from_to
		deepc_encode
		deepc_decode

		) ],
	 );

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

our @EXPORT =  ( map @$_, map  $EXPORT_TAGS{$_} , 'all');

our $VERSION = '0.18';

require XSLoader;
XSLoader::load('Deep::Encode', $VERSION);

sub deepc_utf8_upgrade{
	deep_utf8_upgrade( my $val = deep_str_clone( $_[0] ));
	return $val;
}

sub deepc_utf8_downgrade{
	deep_utf8_downgrade( my $val = deep_str_clone( $_[0] ));
	return $val;
}
sub deepc_utf8_decode{
	deep_utf8_decode( my $val = deep_str_clone( $_[0] ));
	return $val;
}

sub deepc_utf8_encode{
	deep_utf8_encode( my $val = deep_str_clone( $_[0] ));
	return $val;
}
sub deepc_decode{
	deep_decode( my $val = deep_str_clone( $_[0] ), $_[1]);
	return $val;
}
sub deepc_encode{
	deep_encode( my $val = deep_str_clone( $_[0] ), $_[1]);
	return $val;
}
sub deepc_from_to{
	deep_from_to( my $val = deep_str_clone( $_[0] ), $_[1], $_[2]);
	return $val;
}
1;
__END__