modules/perl/nginx.pm

0001 package nginx;
0002
0003 use 5.006001;
0004 use strict;
0005 use warnings;
0006
0007 require Exporter;
0008
0009 our @ISA = qw(Exporter);
0010
0011 our @EXPORT = qw(
0012     OK
0013     DECLINED
0014
0015     HTTP_OK
0016     HTTP_CREATED
0017     HTTP_ACCEPTED
0018     HTTP_NO_CONTENT
0019     HTTP_PARTIAL_CONTENT
0020
0021     HTTP_MOVED_PERMANENTLY
0022     HTTP_MOVED_TEMPORARILY
0023     HTTP_REDIRECT
0024     HTTP_SEE_OTHER
0025     HTTP_NOT_MODIFIED
0026     HTTP_TEMPORARY_REDIRECT
0027     HTTP_PERMANENT_REDIRECT
0028
0029     HTTP_BAD_REQUEST
0030     HTTP_UNAUTHORIZED
0031     HTTP_PAYMENT_REQUIRED
0032     HTTP_FORBIDDEN
0033     HTTP_NOT_FOUND
0034     HTTP_NOT_ALLOWED
0035     HTTP_NOT_ACCEPTABLE
0036     HTTP_REQUEST_TIME_OUT
0037     HTTP_CONFLICT
0038     HTTP_GONE
0039     HTTP_LENGTH_REQUIRED
0040     HTTP_REQUEST_ENTITY_TOO_LARGE
0041     HTTP_REQUEST_URI_TOO_LARGE
0042     HTTP_UNSUPPORTED_MEDIA_TYPE
0043     HTTP_RANGE_NOT_SATISFIABLE
0044
0045     HTTP_INTERNAL_SERVER_ERROR
0046     HTTP_SERVER_ERROR
0047     HTTP_NOT_IMPLEMENTED
0048     HTTP_BAD_GATEWAY
0049     HTTP_SERVICE_UNAVAILABLE
0050     HTTP_GATEWAY_TIME_OUT
0051     HTTP_INSUFFICIENT_STORAGE
0052 );
0053
0054 our $VERSION = '%%VERSION%%';
0055
0056 require XSLoader;
0057 XSLoader::load('nginx', $VERSION);
0058
0059 # Preloaded methods go here.
0060
0061 use constant OK                             => 0;
0062 use constant DECLINED                       => -5;
0063
0064 use constant HTTP_OK                        => 200;
0065 use constant HTTP_CREATED                   => 201;
0066 use constant HTTP_ACCEPTED                  => 202;
0067 use constant HTTP_NO_CONTENT                => 204;
0068 use constant HTTP_PARTIAL_CONTENT           => 206;
0069
0070 use constant HTTP_MOVED_PERMANENTLY         => 301;
0071 use constant HTTP_MOVED_TEMPORARILY         => 302;
0072 use constant HTTP_REDIRECT                  => 302;
0073 use constant HTTP_SEE_OTHER                 => 303;
0074 use constant HTTP_NOT_MODIFIED              => 304;
0075 use constant HTTP_TEMPORARY_REDIRECT        => 307;
0076 use constant HTTP_PERMANENT_REDIRECT        => 308;
0077
0078 use constant HTTP_BAD_REQUEST               => 400;
0079 use constant HTTP_UNAUTHORIZED              => 401;
0080 use constant HTTP_PAYMENT_REQUIRED          => 402;
0081 use constant HTTP_FORBIDDEN                 => 403;
0082 use constant HTTP_NOT_FOUND                 => 404;
0083 use constant HTTP_NOT_ALLOWED               => 405;
0084 use constant HTTP_NOT_ACCEPTABLE            => 406;
0085 use constant HTTP_REQUEST_TIME_OUT          => 408;
0086 use constant HTTP_CONFLICT                  => 409;
0087 use constant HTTP_GONE                      => 410;
0088 use constant HTTP_LENGTH_REQUIRED           => 411;
0089 use constant HTTP_REQUEST_ENTITY_TOO_LARGE  => 413;
0090 use constant HTTP_REQUEST_URI_TOO_LARGE     => 414;
0091 use constant HTTP_UNSUPPORTED_MEDIA_TYPE    => 415;
0092 use constant HTTP_RANGE_NOT_SATISFIABLE     => 416;
0093
0094 use constant HTTP_INTERNAL_SERVER_ERROR     => 500;
0095 use constant HTTP_SERVER_ERROR              => 500;
0096 use constant HTTP_NOT_IMPLEMENTED           => 501;
0097 use constant HTTP_BAD_GATEWAY               => 502;
0098 use constant HTTP_SERVICE_UNAVAILABLE       => 503;
0099 use constant HTTP_GATEWAY_TIME_OUT          => 504;
0100 use constant HTTP_INSUFFICIENT_STORAGE      => 507;
0101
0102
0103 sub rflush {
0104     my $r = shift;
0105
0106     $r->flush;
0107 }
0108
0109
0110 1;
0111 __END__
0112
0113 =head1 NAME
0114
0115 nginx - Perl interface to the nginx HTTP server API
0116
0117 =head1 SYNOPSIS
0118
0119   use nginx;
0120
0121 =head1 DESCRIPTION
0122
0123 This module provides a Perl interface to the nginx HTTP server API.
0124
0125
0126 =head1 SEE ALSO
0127
0128 http://nginx.org/en/docs/http/ngx_http_perl_module.html
0129
0130 =head1 AUTHOR
0131
0132 Igor Sysoev
0133
0134 =head1 COPYRIGHT AND LICENSE
0135
0136 Copyright (C) Igor Sysoev
0137 Copyright (C) Nginx, Inc.
0138
0139
0140 =cut