File Coverage

blib/lib/Template/Plugin/Capture.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	2	50.0
total	31	38	81.5

package Template::Plugin::Capture;
use strict;
use warnings;
use base qw(Template::Plugin);

our $VERSION = '0.01';

our $FILTER_NAME = 'capture';

sub new {
    my ($class, $context, @args) = @_;
    my $self = bless {}, $class;
    my $name = $args[0] || $FILTER_NAME;
    $context->define_filter($name, $self->_filter, 1);
    $self;
}

sub _filter {
    my $self = shift;
    return sub {
        my ($context, $name) = @_;
        $self->throw('no name specified') unless defined $name;
        return sub {
            my $text = shift;
            $context->{STASH}->set($name, $text);
            return '';
        }
    };
}

sub throw {
    my $self = shift;
    die(Template::Exception->new('Capture', join('', @_)));
}

1;
__END__