File Coverage

blib/lib/CGI/ConvertParam.pm

Criterion	Covered	Total	%
statement	6	43	13.9
branch	0	6	0.0
condition			n/a
subroutine	2	11	18.1
pod	7	8	87.5
total	15	68	22.0

package CGI::ConvertParam;

require 5.00;
use vars qw($VERSION $AUTOLOAD);
use strict;

$VERSION = '0.05';

sub new
{
    my $class = shift;
    my $cgi = shift;
    my $self = bless {}, $class;
    $self->query($cgi);
    $self->initialize;
    $self;
}


sub AUTOLOAD
{
    my $self = shift;
    return if $AUTOLOAD =~ /::DESTROY$/;
    my $method = $AUTOLOAD;
    $method =~ s/.*://;

    $self->query->$method(@_);
}


sub convert_all_param
{
    my $self = shift;
    my $query = $self->query;
    foreach my $name ($query->param) {
        $query->param(
            $name,
            map {$self->do_convert_all_param($_)} $query->param($name)
        );
    }
    $self;
}


sub param
{
    my $self = shift;
    my @args  = map { $self->do_convert_on_set($_) } @_;
    my @value = map { $self->do_convert_on_get($_) }
                $self->query->param(@args);
    return wantarray ? @value : $value[0];
}


sub query
{
    my $self = shift;
    if (@_) { $self->{_cgi_convertparam_cgi_instance} = shift }
    $self->{_cgi_convertparam_cgi_instance};
}



sub initialize
{
    my $self = shift;
    # Please OVERRIDE
}


sub do_convert_all_param
{
    my $self = shift;
    my $parameter_value = shift;
    # Please OVERRIDE
    return $parameter_value;
}


sub do_convert_on_get
{
    my $self = shift;
    my $parameter_value = shift;
    # Please OVERRIDE
    return $parameter_value;
}


sub do_convert_on_set
{
    my $self = shift;
    my $parameter_value = shift;
    # Please OVERRIDE
    return $parameter_value;
}


1;
__END__