/usr/local/CPAN/HTML-Template-Extension/HTML/Template/Extension/DO_NOTHING.pm

• package HTML::Template::Extension::DO_NOTHING
  • Version
  • init
  • push_filter
  • _get_filter
  • _do_nothing
• EOF

package HTML::Template::Extension::DO_NOTHING;

$VERSION 			= "0.24";
sub Version 		{ $VERSION; }

use Carp;
use strict;

my %fields_parent   =
                (
                 );

sub init {
    my $self = shift;
    while (my ($key,$val) = each(%fields_parent)) {
        $self->{$key} = $self->{$key} || $val;
    }
}

sub push_filter {
    my $self = shift;
    push @{$self->{filter_internal}},@{_get_filter($self)};
}
sub _get_filter {
	my $self = shift;
	my @ret ;
	push @ret,\&_do_nothing;
	return \@ret;
}


sub _do_nothing {
       my $template = shift;
       $$template = $$template
}

1;