File Coverage

blib/lib/Unicruft.pm

Criterion	Covered	Total	%
statement	24	32	75.0
branch	0	4	0.0
condition			n/a
subroutine	7	14	50.0
pod	7	7	100.0
total	38	57	66.6

package Unicruft;

use 5.008004;
use strict;
use warnings;
use Carp;
use AutoLoader;
use Exporter;
#use Encode;  ##-- slower than pack/unpack!

our @ISA = qw(Exporter);

our $VERSION = '0.06';

require XSLoader;
XSLoader::load('Unicruft', $VERSION);

# Preloaded methods go here.
#require Unicruft::Whatever;

# Autoload methods go after =cut, and are processed by the autosplit program.

##======================================================================
## Exports
##======================================================================
our (%EXPORT_TAGS, @EXPORT_OK, @EXPORT);
BEGIN {
  %EXPORT_TAGS =
    (
     std  => [qw(latin1_to_utf8 utf8_to_ascii utf8_to_latin1 utf8_to_latin1_de utf8_to_utf8_de)],
     guts => [qw(ux_latin1_to_utf8 ux_utf8_to_ascii ux_utf8_to_latin1 ux_utf8_to_latin1_de),
	      qw(ux_latin1_bytes ux_utf8_bytes),
	     ],
    );
  $EXPORT_TAGS{all} = [@{$EXPORT_TAGS{std}}, @{$EXPORT_TAGS{guts}}];
  @EXPORT_OK        = @{$EXPORT_TAGS{all}};
  @EXPORT           = qw();
}

##======================================================================
## Constants
##======================================================================

##======================================================================
## Utils
##======================================================================

## $u8bytes = ux_utf8_bytes($str)
##  + returns UTF-8 byte-string encoded version of $str; respects perl UTF-8 flag
sub ux_utf8_bytes {
  return utf8::is_utf8($_[0]) ? pack('C0C*',unpack('U0C*',$_[0])) : $_[0];
}

## $l1bytes = ux_latin1_bytes($str)
##  + returns Latin-1 byte-string encoded version of $str; respects perl UTF-8 flag
sub ux_latin1_bytes {
  return utf8::is_utf8($_[0]) ? pack('C0C*',unpack('U0U*',$_[0])) : $_[0];
}

##======================================================================
## Wrappers
##======================================================================

## $u8str = latin1_to_utf8($l1str)
sub latin1_to_utf8 {
  ux_latin1_to_utf8(ux_latin1_bytes($_[0]));
}

## $astr = utf8_to_ascii($u8str)
sub utf8_to_ascii {
  ux_utf8_to_ascii(ux_utf8_bytes($_[0]));
}

## $l1str = utf8_to_latin1($u8str)
sub utf8_to_latin1 {
  ux_utf8_to_latin1(ux_utf8_bytes($_[0]));
}

## $destr = utf8_to_latin1_de($u8str)
sub utf8_to_latin1_de {
  ux_utf8_to_latin1_de(ux_utf8_bytes($_[0]));
}

## $destr = utf8_to_utf8_de($u8str)
sub utf8_to_utf8_de {
  utf8::upgrade(my $s = ux_utf8_to_latin1_de(ux_utf8_bytes($_[0])));
  return $s;
}

##======================================================================
## Exports: finish
##======================================================================


1;

__END__