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.