package Template::Plugin::StickyQuery;
use strict;
use vars qw($VERSION);
$VERSION = 0.01;
require Template::Plugin::Filter;
use base qw(Template::Plugin::Filter);
use vars qw($DYNAMIC $FILTER_NAME);
$DYNAMIC = 1;
$FILTER_NAME = 'stickyquery';
use HTML::StickyQuery;
sub init {
my $self = shift;
my $name = $self->{_ARGS}->[0] || $FILTER_NAME;
$self->install_filter($name);
return $self;
}
sub filter {
my($self, $text, $args, $config) = @_;
my $sticky = HTML::StickyQuery->new(%$config);
return $sticky->sticky(scalarref => \$text,
param => $config->{param});
}
1;
__END__
=head1 NAME
Template::Plugin::StickyQuery - TT plugin for HTML::StickyQuery
=head1 SYNOPSIS
use Template;
use Apache;
use Apache::Request;
my $apr = Apache::Request->new(Apache->request); # or CGI.pm will do
my $template = Template->new( ... );
$template->process($filename, { apr => $apr });
# in your template
[% USE StickyQuery %]
[% FILTER stickyquery param => apr %]
go
[% END %]
=head1 DESCRIPTION
Template::Plugin::StickyQuery is a plugin for TT, which allows you to
make your HTML tag sticky using HTML::StickyQuery.
Special thanks to IKEBE Tomohiro.
=head1 AUTHOR
Hiroyuki Kobayasi Ekobayasi@piano.gsE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L, L
=cut