package Template::Flute::Filter;
use strict;
use warnings;
=head1 NAME
Template::Flute::Filter - Filter base class
=head1 METHODS
=head2 new
Creates Template::Flute::Filter object.
=cut
sub new {
my ($class, $self);
$class = shift;
$self = {};
bless $self, $class;
$self->init(@_);
return $self;
};
=head2 init
No-op initializer, may be overridden in subclass.
=cut
sub init {
};
=head2 filter
No-op filter, supposed to be overriden in subclass.
=cut
sub filter {
my ($self, $value) = @_;
return $value;
}
=head1 AUTHOR
Stefan Hornburg (Racke), <racke@linuxia.de>
=head1 LICENSE AND COPYRIGHT
Copyright 2011 Stefan Hornburg (Racke) <racke@linuxia.de>.
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut
1;