File Coverage

blib/lib/Template/Plugin/Filter/Pipe.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	2	2	100.0
total	34	36	94.4

use 5.008;
use strict;
use warnings;

package Template::Plugin::Filter::Pipe;
our $VERSION = '1.100860';
# ABSTRACT: Filter plugin adapter for Text::Pipe
use Text::Pipe;
use parent qw(Template::Plugin::Filter);

sub init {
    my $self = shift;
    $self->{_DYNAMIC} = 1;
    $self->install_filter($self->{_ARGS}[0] || 'pipe');
    $self;
}

sub filter {
    my ($self, $text, $args, $config) = @_;
    die "pipe name?\n" unless defined $args->[0];
    my $pipe = Text::Pipe->new($args->[0], %$config);
    $pipe->filter($text);
}
1;


__END__