Encode::JP::Mobileを使う２

まえのは見通しが悪いとの意見を社内よりいただいたので。

sub convert_param {

    my $self = shift;

    my $page = shift;
    if ( $page->mobile->agent->is_non_mobile ) {

        croak "non mobile";

    }
    for my $p ($page->r->param) {

        my @v = (

            map { Encode::encode('euc-jp',$_) }

            map { Encode::decode("shift_jis-@{[ lc $page->mobile->agent->carrier_longname ]}", $_) }

            $page->r->param($p)

        );

        $page->r->param($p => \@v);

    }

    return;

}

こんな感じ。