File Coverage

blib/lib/Encode/Multibyte/Detect.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	13	18	72.2
condition	4	12	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	42	57	73.6

package Encode::Multibyte::Detect;

use strict;
use warnings;

our $VERSION = '1.01';

use base 'Exporter';

our @EXPORT = ();
our @EXPORT_OK = qw(detect is_7bit is_valid_utf8 is_strict_utf8
    is_valid_euc_cn is_valid_euc_jp is_valid_euc_kr is_valid_euc_tw);

our %EXPORT_TAGS = ( all => [@EXPORT_OK] );

require XSLoader;
XSLoader::load('Encode::Multibyte::Detect');

sub detect {
    my ($str, %opts) = @_;

    my %avail = map {$_ => 1} @{$opts{avail} || []};

    return '' if is_7bit($str);

    return 'utf-8' if is_strict_utf8($str);

    return 'euc-cn' if $avail{'euc-cn'} && is_valid_euc_cn($str);
    return 'euc-jp' if $avail{'euc-jp'} && is_valid_euc_jp($str);
    return 'euc-kr' if $avail{'euc-kr'} && is_valid_euc_kr($str);
    return 'euc-tw' if $avail{'euc-tw'} && is_valid_euc_tw($str);

    return '' if $opts{strict};

    return 'utf-8' if is_valid_utf8($str);

    return '';
}

1;

=head1 NAME

Encode::Multibyte::Detect - detect multibyte encoding

=head1 SYNOPSIS

    use Encode::Multibyte::Detect qw(:all);
    use Encode;

    $enc = detect($octets, strict => 1, avail => [qw(euc-cn)]);
    if ($enc) {
        $string = decode($enc, $octets);
    }

    is_7bit($octets);

    is_valid_utf8($octets);
    is_strict_utf8($octets);

    is_valid_euc_cn($octets);
    is_valid_euc_jp($octets);
    is_valid_euc_kr($octets);
    is_valid_euc_tw($octets);

=head1 REPOSITORY

The source code for the Encode::Multibyte::Detect is held in a public git repository
on Github: L

=head1 AUTHOR

Aleksandr Aleshin [e-mail]>

=head1 COPYRIGHT

This software is copyright (c) 2012 by Aleksandr Aleshin.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut