package nginx; | |
use 5.006001; | |
use strict; | |
use warnings; | |
require Exporter; | |
our @ISA = qw(Exporter); | |
our @EXPORT = qw( | |
OK | |
DECLINED | |
HTTP_OK | |
HTTP_REDIRECT | |
HTTP_NOT_FOUND | |
HTTP_SERVER_ERROR | |
); | |
our $VERSION = '0.4.14'; | |
require XSLoader; | |
XSLoader::load('nginx', $VERSION); | |
# Preloaded methods go here. | |
use constant OK => 0; | |
use constant DECLINED => -5; | |
use constant HTTP_OK => 200; | |
use constant HTTP_REDIRECT => 302; | |
use constant HTTP_NOT_FOUND => 404; | |
use constant HTTP_SERVER_ERROR => 500; | |
1; | |
__END__ | |
=head1 NAME | |
nginx - Perl interface to the nginx HTTP server API | |
=head1 SYNOPSIS | |
use nginx; | |
=head1 DESCRIPTION | |
This module provides a Perl interface to the nginx HTTP server API. | |
=head1 SEE ALSO | |
http://sysoev.ru/nginx/docs/http/ngx_http_perl_module.html | |
=head1 AUTHOR | |
Igor Sysoev | |
=head1 COPYRIGHT AND LICENSE | |
Copyright (C) Igor Sysoev | |
=cut |