Unicode::RecursiveDowngrade version 0.02

NAME

       Unicode::RecursiveDowngrade - Turn off the UTF-8 flags inside of com-
       plex variable

SYNOPSIS

use Unicode::RecursiveDowngrade;

        $rd = Unicode::RecursiveDowngrade->new;
        $var = {
            foo   => 'bar',
            baz   => [
                'qux',
                'quux',
            ],
            corge => \$grault,
        };
        $unflagged = $rd->downgrade($var);

DESCRIPTION

       Unicode::RecursiveDowngrade will turn off the UTF-8 flag inside of com-
       plex variable in a lump.  In spite of your intention, some modules turn
       it on every elements of returned variable.  You may be hard up for turn
       them off if you don't need any UTF-8 flags in your variable.  This mod-
       ule will fix it up easily.

       Sometime I think about the UTF-8 flag is not stead.  But some
       "XML::Parser" based modules will turn it on.  For example, "XML::Sim-
       ple" is really simple way to parse XMLs, but this module returns a sim-
       ple hashref including flagged values.  This hashref is very hard to
       use, isn't it?

METHODS

• new "new()" is a constructor method.
• filter You can set some filter to "filter()" accessor. The values of downgraded will be passed this filter function. You have to set a code reference to this accessor. Like this:

            use Unicode::RecursiveDowngrade;
            use Unicode::Japanese;

            $rd = Unicode::RecursiveDowngrade->new;
            $rd->filter(sub { Unicode::Japanese->new(shift, 'utf8')->euc });
            $unflagged = $rd->downgrade($var);

           the passed subref will be called inside "downgrade()" method.

       * downgrade
           "downgrade()" returns a turned off variable of argument.

VARIABLES

• $Unicode::RecursiveDowngrade::DowngradeFunc This variable has a downgrade function for "downgrade()" method. You can override the variable for some other way.

AUTHOR

Koichi Taniguchi <taniguchi@livedoor.jp>

COPYRIGHT

Copyright (c) 2005 Koichi Taniguchi. Japan. All rights reserved.

       This library is free software; you can redistribute it and/or modify it
       under the same terms as Perl itself.

SEE ALSO

utf8