File Coverage

blib/lib/Template/Plugin/StickyQuery.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	2	0.0
total	30	34	88.2

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__