GroLUG/lib/Catalyst/Engine/Null.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

package Catalyst::Engine::Null; 
 
use strict;
use base 'Catalyst::Engine';
use Catalyst::Utils;
use NEXT;
use URI;
 
sub finalize_body  { print STDERR "finalize_body\n"};
sub finalize_cookies  { print STDERR "finalize_cookies\n"};
sub finalize_error  { print STDERR "finalize_error\n"};
sub finalize_read  { print STDERR "finalize_read\n"};
sub finalize_uploads  { print STDERR "finalize_uploads\n"};
 
sub prepare_request  { print STDERR "prepare_request\n"};
sub prepare_query_parameters  { print STDERR "prepare_query_parameters\n"};
sub prepare_read  { print STDERR "prepare_read\n"};
sub prepare_uploads  { print STDERR "prepare_uploads\n"};
sub prepare_path {
    print STDERR "prepare_path\n";
    my ($self,$c)=@_;
    $c->request->uri(URI->new('/'));
    $c->request->base(URI->new('/'));
}
 
sub read  { print STDERR "read\n"; '' };
sub read_chunk  { print STDERR "read_chunk\n"; '' };
 
sub write  { print STDERR "write\n"};
 
1;