view release on metacpan or  search on metacpan

t/transform.t  view on Meta::CPAN

use Plack::Builder;
use FindBin qw($Bin);
use HTTP::Request::Common;
use Plack::Test;

use lib "$Bin/lib";
use MockUserAgent;

sub read_file {
	my $file = shift;
	return do { local(@ARGV,$/) = $file;<> }
}

my $backend = sub {
    my $env     = shift;
    my $request = Plack::Request->new($env);
    my $path     = $request->uri->path;
    if ( -e  "$Bin/documents/$path" ) {
        return [
            200,
            [ 'Content-Type', 'text/xml' ],