File Coverage

blib/lib/Data/Decode/Util.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	6	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	36	50.0

# $Id$
#
# Copyright (c) 2007 Daisuke Maki [e-mail]>
# All rights reserved.

package Data::Decode::Util;
use strict;
use warnings;
use Encode ();
use Exporter 'import';
our @EXPORT_OK = qw(try_decode pick_encoding);

sub try_decode
{
    my ($encoding, $data) = @_;
    return () unless $encoding;
    my $decoded = eval { Encode::decode($encoding, $data, Encode::FB_CROAK()) };
    return $decoded;
}

sub pick_encoding
{
    for my $e (@_) {
        next unless defined $e;
        next unless Encode::find_encoding($e);
        return $e;
    }
    return ();
}

1;

__END__