#!/usr/bin/perl --
BEGIN{
    $INC{'Template/Plugin/FilterFence.pm'}=__FILE__;
    package Template::Plugin::FilterFence;
    use Template::Plugin::Filter;
    use base qw( Template::Plugin::Filter );

    sub filter {
         my ($self, $text) = @_;
         return join ' ', split '', $text ;
    }
    sub init {
        my $self = shift;
        $self->install_filter('fence');
        return $self
    }

    1;
};

use Dancer;
use YoApp;
package YoApp;
use Dancer ':syntax';
get '/filtertest' => sub {
#~     template 'filtertest';
    Dancer::Template->engine->render( \q{
<% USE FilterFence %>
bird is "<% "bird" | $FilterFence %>"
the word "<% "word" | fence %>"
}  );
};

#~ dance; exit; ## if you want to view in browser

package main;
use Dancer::Test;
response_status_is [GET => '/filtertest'], 200, "GET /filtertest is found";
response_content_like [GET => '/filtertest'], qr/something/, "something";
response_content_like [GET => '/filtertest'], qr/something/, "something";

Test::More::done_testing();