Data::Visitor::Encode

セミナー中ですが、新モジュールCPANにアップ。

  use Data::Visitor::Encode;

  my $dve = Data::Visitor::Encode->new;


  my $decoded = $dve->decode('euc-jp', \%hash);

俺的な使い道はこれ：

  # in catalyst app


  sub begin : Private

  {

      my ($self, $c) = @_;

      my $dve = Data::Visitor::Encode->new;

      $c->req->parameters( $dve->decode('cp932', $c->req->parameters) );

      $self->NEXT::begin($c);

  }