File Coverage

blib/lib/Encode/First.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	5	8	62.5
condition	2	6	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	35	43	81.4

package Encode::First;

use strict;
our $VERSION = '0.01';

use Carp ();
use Encode ();

require Exporter;
*import = \&Exporter::import;
our @EXPORT = qw( encode_first );

sub encode_first {
    my($encodings, $str) = @_;

    $encodings = _encodings($encodings);

    for my $enc (@$encodings) {
        my $copy  = $str; # Encode::encode might break the original string
        my $bytes;
        eval {
            $bytes = Encode::encode($enc, $str, Encode::FB_CROAK);
        };
        unless ($@) {
            return wantarray ? ($enc, $bytes) : $enc;
        }
    }

    Carp::croak("No encoding can encode the given string.");
}

sub _encodings {
    my $encodings = shift;
    return if ref $encodings && ref $encodings eq 'ARRAY';

    Carp::croak "Unknown reference type ", ref $encodings
        if ref $encodings && ref $encodings ne 'ARRAY';

    return [ split /[:,]/, $encodings ];
}

1;
__END__