NAME

Deep::Encode - Bulk encoding and decoding strings in Perl data

SYNOPSIS

use Deep::Encode;

my $s = [ 1, 2, "string in cp1251 encoding" ];

deep_from_to( $s, "cp1251", "utf8" ); # convert $s to [ [ 1, 2, "string in utf8 encoding" ]; using Encode::from_to

deep_utf8_encode( $s ) ; # call utf8::encode on every string in $s
deep_utf8_decode( $s ) ; # call utf8::decode on every string in $s

deep_encode( $s, $encoding );  # call Encode::encode for every string scalar in
deep_decode( $s, $encoding );  # call Encode::decode for every string scalar in 

if ( deep_utf8_check( $s ) ){
    deep_utf8_decode( $s );
}
else {
    croak( "Data not in utf8 encoding" );
}
  

DESCRIPTION

This module allow apply Encode::from_to, utf8::decode, utf8::encode and ...  on every string scalar in array or hash recursively

EXPORT

deep_from_to( $s, $from, $to )
deep_utf8_decode( $s )
deep_utf8_encode( $s )

deep_encode( $s, $encoding );  # call Encode::encode on every string scalar in
deep_decode( $s, $encoding );  # call Encode::decode on every string scalar in 
deep_utf8_off( $s ); # check off utf8 flag. return number applied items.
deep_utf8_upgrade( $s );   # Make same as Encode::upgrade for all strings in $s. return number applied items.
deep_utf8_downgrade( $s ); # Make same as Encode::downgrade for all strings in $s. return number applied items.

deep_utf8_check( $s ); # return true if all string can be properly decode from utf8

FEATURES This module does not handle hash keys, but values it does.

$encoding may be as string like "utf8", "cp1251" or object returned from &Encode::find_encoding ( It will be little faster than string )

BUGS && TODO For now this module can't handle self referrenced structures. To Public Benchmark.

SEE ALSO

Encode, utf8, Data::Recursive::Encode (pure perl implementation)

AUTHOR

A.G. Grishaev, <grian@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by A.G. Grishaev.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.