view release on metacpan or  search on metacpan

t/transform.t  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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' ],