Commit 5bbe35ce authored by Yadd's avatar Yadd
Browse files

LEMONLDAP::NG : To help Doxygen, we have to use "use base" instead of @ISA when possible

parent 5f552f40
......@@ -2,21 +2,8 @@ package Lemonldap::NG::Common;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(
);
our $VERSION = '0.1';
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
......
......@@ -15,7 +15,7 @@ use CGI;
our $VERSION = '0.3';
our @ISA = qw(CGI);
use base qw(CGI);
sub header {
my $self = shift;
......
......@@ -7,7 +7,6 @@ use Lemonldap::NG::Common::Conf::Constants;
use Regexp::Assemble;
our $VERSION = 0.51;
our @ISA;
our $msg;
sub new {
......
......@@ -3,7 +3,7 @@ package Lemonldap::NG::Common::Conf::Constants;
use strict;
use Exporter 'import';
our @ISA = qw(Exporter);
use base qw(Exporter);
our $VERSION = '0.1';
# CONSTANTS
......
......@@ -7,7 +7,7 @@ use Lemonldap::NG::Portal::SharedConf;
use Digest::MD5 qw(md5_base64);
use MIME::Base64;
our @ISA = qw(Lemonldap::NG::Handler::SharedConf);
use base qw(Lemonldap::NG::Handler::SharedConf);
our $VERSION = '0.01';
......
......@@ -6,7 +6,7 @@ use Lemonldap::NG::Handler::SharedConf qw(:all);
our $VERSION = '0.02';
our @ISA = qw(Lemonldap::NG::Handler::SharedConf);
use base qw(Lemonldap::NG::Handler::SharedConf);
*EXPORT_TAGS = *Lemonldap::NG::Handler::SharedConf::EXPORT_TAGS;
*EXPORT_OK = *Lemonldap::NG::Handler::SharedConf::EXPORT_OK;
......
......@@ -6,7 +6,7 @@ use Lemonldap::NG::Common::CGI;
use CGI::Cookie;
use MIME::Base64;
our @ISA = qw(Lemonldap::NG::Common::CGI);
use base qw(Lemonldap::NG::Common::CGI);
use Lemonldap::NG::Handler::SharedConf qw(:all);
......@@ -126,7 +126,7 @@ package Lemonldap::NG::Handler::_CGI;
use Lemonldap::NG::Handler::SharedConf qw(:locationRules :localStorage);
our @ISA = qw(Lemonldap::NG::Handler::SharedConf);
use base qw(Lemonldap::NG::Handler::SharedConf);
sub childInit {1}
......
......@@ -7,7 +7,7 @@ use Lemonldap::NG::Handler::Vhost;
use Lemonldap::NG::Common::Conf;
use Cache::Cache qw($EXPIRES_NEVER);
our @ISA = qw(Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple);
use base qw(Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple);
our $VERSION = '0.62';
our $cfgNum = 0;
......
......@@ -15,7 +15,8 @@ use LWP::UserAgent;
use Safe;
use MIME::Base64;
our @ISA = qw(Lemonldap::NG::Common::CGI);
use base qw(CGI);
our @ISA;
our $VERSION = '0.87';
......@@ -23,8 +24,6 @@ sub new {
my ( $class, $args ) = @_;
my $self;
if ( $args->{protection} ) {
eval 'use Lemonldap::NG::Handler::CGI;';
$class->abort($@) if ($@);
unshift @ISA, "Lemonldap::NG::Handler::CGI";
$self = $class->SUPER::new($args);
}
......
......@@ -5,7 +5,7 @@ use strict;
use Lemonldap::NG::Manager;
use Lemonldap::NG::Common::Conf::Constants;
our @ISA = qw(Lemonldap::NG::Manager);
use base qw(Lemonldap::NG::Manager);
our $VERSION = "0.1";
sub new {
......
......@@ -6,7 +6,7 @@ use Lemonldap::NG::Common::Apache::Session;
our $VERSION = '0.1';
our @ISA = qw(Lemonldap::NG::Handler::CGI);
use base qw(Lemonldap::NG::Handler::CGI);
# Cleaner for Lemonldap::NG : removes old sessions from Apache::Session
#
......
......@@ -35,7 +35,7 @@ use UNIVERSAL qw( isa can VERSION );
*EXPORT = *Lemonldap::NG::Portal::SharedConf::EXPORT;
our $VERSION = '0.31';
our @ISA = qw(Lemonldap::NG::Portal::SharedConf);
use base qw(Lemonldap::NG::Portal::SharedConf);
#===============================================================================
# Global Constants
......
......@@ -4,7 +4,7 @@ use strict;
use Lemonldap::NG::Portal::Simple;
use Lemonldap::NG::Portal::AuthLDAP;
our @ISA = qw(Lemonldap::NG::Portal::AuthLDAP);
use base qw(Lemonldap::NG::Portal::AuthLDAP);
our $VERSION = '0.1';
......
......@@ -4,7 +4,7 @@ use strict;
use Lemonldap::NG::Portal::SharedConf qw(:all);
our $VERSION = '0.03';
our @ISA = ('Lemonldap::NG::Portal::SharedConf');
use base ('Lemonldap::NG::Portal::SharedConf');
*EXPORT_OK = *Lemonldap::NG::Portal::SharedConf::EXPORT_OK;
*EXPORT_TAGS = *Lemonldap::NG::Portal::SharedConf::EXPORT_TAGS;
......
......@@ -4,7 +4,7 @@ use strict;
use Lemonldap::NG::Portal::SharedConf qw(:all);
our $VERSION = '0.01';
our @ISA = ('Lemonldap::NG::Portal::SharedConf');
use base ('Lemonldap::NG::Portal::SharedConf');
*EXPORT_OK = *Lemonldap::NG::Portal::SharedConf::EXPORT_OK;
*EXPORT_TAGS = *Lemonldap::NG::Portal::SharedConf::EXPORT_TAGS;
......
package Lemonldap::NG::Portal::_LDAP;
use Net::LDAP;
our @ISA = qw(Net::LDAP);
use base qw(Net::LDAP);
our $VERSION = '0.1';
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment