HTML::Widget::Filter - Filter Base Class

HTML-Widget documentation Contained in the HTML-Widget distribution.

Index

Code Index:

NAME

Top

HTML::Widget::Filter - Filter Base Class

SYNOPSIS

Top

    my $f = $widget->filter( $type, @names );
    $c->names(@names);

DESCRIPTION

Top

Filter Base Class.

METHODS

Top

filter

Arguments: $value

Return Value: $filtered_value

FIlter given value.

init

Arguments: $widget

Called once when process() gets called for the first time.

names

Arguments: @names

Return Value: @names

Contains names of params to filter.

prepare

Arguments: $widget

Called whenever process() gets called.

process

Arguments: \%params, \@uploads

AUTHOR

Top

Sebastian Riedel, sri@oook.de

LICENSE

Top

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

HTML-Widget documentation Contained in the HTML-Widget distribution. 
package HTML::Widget::Filter;

use warnings;
use strict;
use base 'Class::Accessor::Chained::Fast';

__PACKAGE__->mk_accessors(qw/names/);


sub filter { return $_[0] }


sub init { }


sub prepare { }


sub process {
    my ( $self, $params ) = @_;
    my @names = scalar @{ $self->names } ? @{ $self->names } : keys %$params;
    for my $name (@names) {
        my $values = $params->{$name};
        if ( ref $values eq 'ARRAY' ) {
            $params->{$name} = [ map { $self->filter($_); } @$values ];
        }
        else {
            $params->{$name} = $self->filter($values);
        }
    }
}


1;