File Coverage

blib/lib/Sledge/Request/Apache/I18N.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Sledge::Request::Apache::I18N;
use strict;
use vars qw($VERSION);
$VERSION = '0.02';

use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(req));

use vars qw($AUTOLOAD);
use Sledge::Request::Apache::I18N::Upload;
use Apache::Request;
use Encode;

sub new {
    my($class, $r) = @_;
    bless { req => Apache::Request->new($r) }, $class;
}

sub upload {
    my $self = shift;
    Sledge::Request::Apache::I18N::Upload->new($self, @_);
}

sub param {
    my $self = shift;
    if ( @_ == 0) {
        return map { $self->_decode_param($_) } $self->req->param;
    } elsif ( @_ == 1) {
        my @value = map { $self->_decode_param($_) } $self->req->param($_[0]);
        return wantarray ? @value : $value[0];
    } else {
        my ($key, $param) = @_;
        if (ref $param eq 'ARRAY') {
            $param = [map { $self->_encode_param($_) } @$param];
            return $self->req->param( $key, $param);
        } elsif ( ! ref $param ) {
            return $self->req->param($_[0], $self->_encode_param($_[1]));
        } else {
            return $self->req->param(@_);
        }
    }
}

sub _decode_param {
    my ($self, $val) = @_;
    return Encode::is_utf8($val)
           ? $val
           : Encode::decode('utf-8', $val);
}

sub _encode_param {
    my ($self, $val) = @_;
    return Encode::is_utf8($val)
           ? Encode::encode('utf-8', $val)
           : $val;
}

sub DESTROY { }

sub AUTOLOAD {
    my $self = shift;
    (my $meth = $AUTOLOAD) =~ s/.*:://;
    $self->req->$meth(@_);
}

1;

__END__