Export makes no sense here

environments/ppa-mbqj77/deployments/1
Xavier Guimard 10 years ago
parent b7643b99e1
commit b8dc61d1f6
  1. 10
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API/ApacheMP1.pm
  2. 16
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API/ApacheMP2.pm
  3. 17
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API/CGI.pm
  4. 1
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API/Nginx.pm
  5. 17
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API/PSGI.pm

@ -1,16 +1,6 @@
package Lemonldap::NG::Handler::API::ApacheMP1;
use Exporter 'import';
our $VERSION = '1.4.0';
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
BEGIN {
# no http codes defined for ApacheMP1, but tag kept for compatibility with API
%EXPORT_TAGS = ( httpCodes => [], );
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } ) foreach ( keys %EXPORT_TAGS );
$EXPORT_TAGS{all} = \@EXPORT_OK;
}
# Specific modules and constants for Apache Mod_Perl 1
use Apache;

@ -1,23 +1,7 @@
package Lemonldap::NG::Handler::API::ApacheMP2;
use Exporter 'import';
our $VERSION = '2.0.0';
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
BEGIN {
%EXPORT_TAGS = (
httpCodes => [
qw( OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR AUTH_REQUIRED MAINTENANCE )
],
functions => [
qw( &hostname &remote_ip &uri &uri_with_args
&unparsed_uri &args &method &header_in )
]
);
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } ) foreach ( keys %EXPORT_TAGS );
$EXPORT_TAGS{all} = \@EXPORT_OK;
}
# Specific modules and constants for Apache Mod_Perl 2
use Apache2::RequestUtil;

@ -1,23 +1,6 @@
package Lemonldap::NG::Handler::API::CGI;
use Exporter 'import';
our $VERSION = '1.4.0';
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
BEGIN {
%EXPORT_TAGS = (
httpCodes => [
qw( OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR AUTH_REQUIRED MAINTENANCE $logLevel )
],
functions => [
qw( &hostname &remote_ip &uri &uri_with_args
&unparsed_uri &args &method &header_in )
]
);
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } ) foreach ( keys %EXPORT_TAGS );
$EXPORT_TAGS{all} = \@EXPORT_OK;
}
# Specific modules and constants for Test or CGI
use constant FORBIDDEN => 403;

@ -1,7 +1,6 @@
package Lemonldap::NG::Handler::API::Nginx;
our $VERSION = '1.4.0';
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
## @method void thread_share(string $variable)
# share or not the variable (if authorized by specific module)

@ -1,23 +1,6 @@
package Lemonldap::NG::Handler::API::PSGI;
use Exporter 'import';
our $VERSION = '1.4.0';
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
BEGIN {
%EXPORT_TAGS = (
httpCodes => [
qw( OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR AUTH_REQUIRED MAINTENANCE $logLevel )
],
functions => [
qw( &hostname &remote_ip &uri &uri_with_args
&unparsed_uri &args &method &header_in )
]
);
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } ) foreach ( keys %EXPORT_TAGS );
$EXPORT_TAGS{all} = \@EXPORT_OK;
}
# Specific modules and constants for Test or CGI
use constant FORBIDDEN => 403;

Loading…
Cancel
Save