Commit | Line | Data |
e2fd5b5f |
1 | package Catalyst::Engine::SpeedyCGI::Base; |
2 | |
3 | use strict; |
4 | use base 'Catalyst::Engine::CGI::Base'; |
5 | |
6 | use CGI::SpeedyCGI; |
7 | |
8 | __PACKAGE__->mk_accessors('speedycgi'); |
9 | |
10 | =head1 NAME |
11 | |
12 | Catalyst::Engine::SpeedyCGI::Base - Base class for SpeedyCGI Engines |
13 | |
14 | =head1 DESCRIPTION |
15 | |
16 | This is a base class for SpeedyCGI engines. |
17 | |
18 | =head1 METHODS |
19 | |
20 | =over 4 |
21 | |
22 | =item $c->speedycgi |
23 | |
24 | Contains the C<CGI::SpeedyCGI> object. |
25 | |
26 | =back |
27 | |
28 | =head1 OVERLOADED METHODS |
29 | |
30 | This class overloads some methods from C<Catalyst::Engine::CGI::Base>. |
31 | |
32 | =over 4 |
33 | |
34 | =item $c->prepare_request |
35 | |
36 | =cut |
37 | |
38 | sub prepare_request { |
39 | my ( $c, $speedycgi ) = @_; |
40 | $c->speedycgi($speedycgi); |
41 | } |
42 | |
43 | =item $c->run |
44 | |
45 | =cut |
46 | |
47 | sub run { |
48 | my ( $class, @arguments ) = @_; |
49 | $class->handler( CGI::SpeedyCGI->new, @arguments ); |
50 | } |
51 | |
52 | =back |
53 | |
54 | =head1 SEE ALSO |
55 | |
56 | L<Catalyst>, L<CGI::SpeedyCGI>, L<Catalyst::Engine::CGI::Base>. |
57 | |
58 | =head1 AUTHOR |
59 | |
60 | Sebastian Riedel, C<sri@cpan.org> |
61 | Christian Hansen, C<ch@ngmedia.com> |
62 | |
63 | =head1 COPYRIGHT |
64 | |
65 | This program is free software, you can redistribute it and/or modify it under |
66 | the same terms as Perl itself. |
67 | |
68 | =cut |
69 | |
70 | 1; |