File Coverage

blib/lib/CPAN/Mini/Inject/Server/Dispatch.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package CPAN::Mini::Inject::Server::Dispatch;
2              
3 1     1   1086 use strict;
  1         2  
  1         40  
4 1     1   5 use warnings;
  1         2  
  1         31  
5 1     1   5 use base 'CGI::Application::Dispatch';
  1         1  
  1         903  
6              
7             =head1 NAME
8              
9             CPAN::Mini::Inject::Server::Dispatch - Dispatch table for CPAN::Mini::Inject::Server
10              
11             =head1 VERSION
12              
13             Version 0.03
14              
15             =cut
16              
17             our $VERSION = '0.03';
18              
19              
20             =head1 SYNOPSIS
21              
22             USING TEST SERVER
23              
24             use CGI::Application::Dispatch::Server;
25             my $server = CGI::Application::Dispatch::Server->new(
26             class => 'CPAN::Mini::Inject::Server::Dispatch',
27             port => '9000'
28             );
29              
30             $server->run;
31              
32              
33             OR UNDER APACHE MOD PERL
34              
35            
36             SetHandler perl-script
37             PerlHandler CPAN::Mini::Inject::Server::Dispatch
38            
39            
40            
41             OR UNDER CGI
42            
43             #!/usr/bin/perl
44             use FindBin '$Bin';
45             use lib "$Bin/../../rel/path/to/my/perllib";
46             use CPAN::Mini::Inject::Server::Dispatch
47             CPAN::Mini::Inject::Server::Dispatch->dispatch();
48              
49             =cut
50              
51             =head1 DESCRIPTION
52              
53             =cut
54              
55             =head1 FUNCTIONS
56              
57             =cut
58              
59              
60             =head2 dispatch_args
61              
62             Dispatch urls for CPAN::Mini::Inject::Server
63              
64             =cut
65              
66             sub dispatch_args {
67             return {
68 0     0 1   prefix => 'CPAN::Mini::Inject',
69             table => [
70             'add[post]' => {app => 'Server', rm => 'add'},
71             'update[post]' => {app => 'Server', rm => 'update'},
72             'inject[post]' => {app => 'Server', rm => 'inject'},
73             ],
74             }
75             } # end of subroutine dispatch_args
76              
77              
78              
79             =head1 AUTHOR
80              
81             Christopher Mckay, C<< >>
82              
83             =head1 BUGS
84              
85             Please report any bugs or feature requests to C, or through
86             the web interface at L. I will be notified, and then you'll
87             automatically be notified of progress on your bug as I make changes.
88              
89              
90              
91              
92             =head1 SUPPORT
93              
94             You can find documentation for this module with the perldoc command.
95              
96             perldoc CPAN::Mini::Inject::Server::Dispatch
97              
98              
99             You can also look for information at:
100              
101             =over 4
102              
103             =item * RT: CPAN's request tracker
104              
105             L
106              
107             =item * AnnoCPAN: Annotated CPAN documentation
108              
109             L
110              
111             =item * CPAN Ratings
112              
113             L
114              
115             =item * Search CPAN
116              
117             L
118              
119             perldoc CPAN::Mini::Inject::Server::Dispatch
120              
121             =back
122              
123             =head1 ACKNOWLEDGEMENTS
124              
125              
126             =head1 COPYRIGHT & LICENSE
127              
128             Copyright 2009 Christopher Mckay.
129              
130             This program is free software; you can redistribute it and/or modify it
131             under the terms of either: the GNU General Public License as published
132             by the Free Software Foundation; or the Artistic License.
133              
134             See http://dev.perl.org/licenses/ for more information.
135              
136             =cut
137              
138             1; # End of CPAN::Mini::Inject::Server::Dispatch