File Coverage

blib/lib/Eixo/Base/Utf8.pm

Criterion	Covered	Total	%
statement	3	20	15.0
branch	0	20	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	2	0.0
total	4	46	8.7

package Eixo::Base::Utf8;

use strict;

sub enable_flag{
    _flag($_[0], 1)
}

sub disable_flag{
    _flag($_[0], 0)
}

sub _flag{
    my ($data, $enable) = @_;

    if(ref($data) eq 'HASH'){

        map {
            if(ref($_)){
                _flag($_, $enable)
            }
            else{
                _flag(\$_, $enable)
            }
        }
        %$data;
    }
    elsif(ref($data) eq 'ARRAY'){

        map{
            if(ref($_)){
                _flag($_, $enable)
            }
            else{
                _flag(\$_, $enable)
            }

        }@$data
    }
    elsif(ref($data) eq 'SCALAR'){

        return unless(defined($$data));

        ($enable)?
            utf8::upgrade($$data) :
            utf8::downgrade($$data)
    }
    elsif(!ref($data)){
        return unless(defined($data));

        ($enable)?
            utf8::upgrade($data) :
            utf8::downgrade($data)
    }
    else{
        # no hace nada en otro tipo de refs
        return undef;
    }


}

1;