File Coverage

blib/lib/Unicode/Precis/Preparation.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition	6	7	85.7
subroutine	7	7	100.0
pod	1	1	100.0
total	35	36	97.2

#-*- perl -*-
#-*- coding: utf-8 -*-

package Unicode::Precis::Preparation;

use 5.006001;
use strict;
use warnings;
no utf8;

use base qw(Exporter);

our %EXPORT_TAGS = (
    'all' => [
        qw(prepare
            ValidUTF8 FreeFormClass IdentifierClass
            UNASSIGNED PVALID CONTEXTJ CONTEXTO DISALLOWED)
    ],
);
our @EXPORT_OK = @{$EXPORT_TAGS{'all'}};

our $VERSION    = '0.999_01';
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;    # see L

require XSLoader;
XSLoader::load('Unicode::Precis::Preparation', $XS_VERSION);

BEGIN { eval 'require Unicode::UCD'; }
my $UnicodeVersion;
if ($Unicode::UCD::VERSION) {
    $UnicodeVersion = Unicode::UCD::UnicodeVersion();
} else {
    # For Perl 5.6.x.
    $UnicodeVersion = '3.0';
}

sub prepare {
    my $string      = shift;
    my $stringclass = shift || 0;
    my %options     = @_;

    my ($unicode_major, $unicode_minor) =
        split /[.]/, ($options{UnicodeVersion} || $UnicodeVersion);
    $unicode_minor ||= 0;

    _prepare($string, $stringclass, ($unicode_major << 4) + $unicode_minor);
}

1;
__END__