File Coverage

blib/lib/Text/CSV/Encoded/Coder/EncodeGuess.pm

Criterion	Covered	Total	%
statement	32	36	88.8
branch	5	10	50.0
condition	0	2	0.0
subroutine	9	9	100.0
pod	2	2	100.0
total	48	59	81.3

package Text::CSV::Encoded::Coder::EncodeGuess;
$Text::CSV::Encoded::Coder::EncodeGuess::VERSION = '0.25';
use 5.008;
use strict;
use warnings;

# VERSION

use base qw( Text::CSV::Encoded::Coder::Encode );

use Carp ();
use Encode ();
use Encode::Guess;


sub decode {
    my ( $self, $encoding, $str ) = @_;

    return undef unless defined $str;

    if ( ref $encoding ) {
        my $enc = Encode::Guess::guess_encoding( $str, @$encoding );
        $enc = $self->find_encoding( $encoding->[0] ) unless ref $enc;
        return $enc->decode( $str, $self->decode_check_value );
    }

    $self->find_encoding( $encoding )->decode( $str, $self->decode_check_value );
}


sub decode_fields_ref {
    my ( $self, $encoding, $arrayref ) = @_;

    if ( ref $encoding ) {
        for ( @$arrayref ) {
            my $enc = Encode::Guess::guess_encoding( $_, @$encoding );
            $enc = $self->find_encoding( $encoding->[0] ) unless ref $enc;
            $_ = $enc->decode( $_, $self->decode_check_value );
        }
    }
    else {
        my $enc = $self->find_encoding( $encoding ) || return;
        for ( @$arrayref ) {
            $_ = $enc->decode( $_, $self->decode_check_value );
        }
    }

}


1;
__END__