Alway put it right after the package statement. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> --- testbot/lib/ObjectModel/BasicPropertyDescriptor.pm | 4 ++-- testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm | 4 ++-- testbot/lib/ObjectModel/CGI/CollectionPage.pm | 4 ++-- testbot/lib/ObjectModel/CGI/FormPage.pm | 4 ++-- testbot/lib/ObjectModel/CGI/FreeFormPage.pm | 4 ++-- testbot/lib/ObjectModel/CGI/ItemPage.pm | 4 ++-- testbot/lib/ObjectModel/CGI/Page.pm | 4 ++-- testbot/lib/WineTestBot/CGI/PageBase.pm | 4 ++-- testbot/lib/WineTestBot/CGI/Sessions.pm | 15 +++++++++++---- testbot/lib/WineTestBot/Engine/Events.pm | 4 ++-- testbot/lib/WineTestBot/Engine/Notify.pm | 4 ++-- 11 files changed, 31 insertions(+), 24 deletions(-) diff --git a/testbot/lib/ObjectModel/BasicPropertyDescriptor.pm b/testbot/lib/ObjectModel/BasicPropertyDescriptor.pm index fd1979404..4c3382cb0 100644 --- a/testbot/lib/ObjectModel/BasicPropertyDescriptor.pm +++ b/testbot/lib/ObjectModel/BasicPropertyDescriptor.pm @@ -18,6 +18,8 @@ use strict; +package ObjectModel::BasicPropertyDescriptor; + =head1 NAME ObjectModel::BasicPropertyDescriptor - Defines a basic property @@ -28,8 +30,6 @@ This handles the boolean, a number and string columns. =cut -package ObjectModel::BasicPropertyDescriptor; - use ObjectModel::PropertyDescriptor; use vars qw(@ISA @EXPORT); diff --git a/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm b/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm index f890315ad..3dd8154a7 100644 --- a/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm +++ b/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm @@ -19,14 +19,14 @@ use strict; +package ObjectModel::CGI::CollectionBlockForPage; + =head1 NAME ObjectModel::CGI::CollectionBlockForPage - Collection block for list pages =cut -package ObjectModel::CGI::CollectionBlockForPage; - use ObjectModel::CGI::CollectionBlock; use vars qw(@ISA @EXPORT); diff --git a/testbot/lib/ObjectModel/CGI/CollectionPage.pm b/testbot/lib/ObjectModel/CGI/CollectionPage.pm index 11f030091..e45b2a4a7 100644 --- a/testbot/lib/ObjectModel/CGI/CollectionPage.pm +++ b/testbot/lib/ObjectModel/CGI/CollectionPage.pm @@ -19,14 +19,14 @@ use strict; +package ObjectModel::CGI::CollectionPage; + =head1 NAME ObjectModel::CGI::CollectionPage - Base class for list pages =cut -package ObjectModel::CGI::CollectionPage; - use ObjectModel::CGI::CollectionBlockForPage; use ObjectModel::CGI::Page; diff --git a/testbot/lib/ObjectModel/CGI/FormPage.pm b/testbot/lib/ObjectModel/CGI/FormPage.pm index 7489f8353..7669067f1 100644 --- a/testbot/lib/ObjectModel/CGI/FormPage.pm +++ b/testbot/lib/ObjectModel/CGI/FormPage.pm @@ -20,14 +20,14 @@ use strict; +package ObjectModel::CGI::FormPage; + =head1 NAME ObjectModel::CGI::FormPage - Base class for web forms =cut -package ObjectModel::CGI::FormPage; - use ObjectModel::CGI::Page; use vars qw(@ISA @EXPORT); diff --git a/testbot/lib/ObjectModel/CGI/FreeFormPage.pm b/testbot/lib/ObjectModel/CGI/FreeFormPage.pm index 607fd7bd6..7af04c498 100644 --- a/testbot/lib/ObjectModel/CGI/FreeFormPage.pm +++ b/testbot/lib/ObjectModel/CGI/FreeFormPage.pm @@ -19,14 +19,14 @@ use strict; +package ObjectModel::CGI::FreeFormPage; + =head1 NAME ObjectModel::CGI::FreeFormPage - Base class for unbound web forms =cut -package ObjectModel::CGI::FreeFormPage; - use ObjectModel::CGI::FormPage; use vars qw(@ISA @EXPORT); diff --git a/testbot/lib/ObjectModel/CGI/ItemPage.pm b/testbot/lib/ObjectModel/CGI/ItemPage.pm index a07f02be8..74ce14e32 100644 --- a/testbot/lib/ObjectModel/CGI/ItemPage.pm +++ b/testbot/lib/ObjectModel/CGI/ItemPage.pm @@ -20,14 +20,14 @@ use strict; +package ObjectModel::CGI::ItemPage; + =head1 NAME ObjectModel::CGI::ItemPage - Base class for bound web forms =cut -package ObjectModel::CGI::ItemPage; - use URI::Escape; use ObjectModel::CGI::FormPage; diff --git a/testbot/lib/ObjectModel/CGI/Page.pm b/testbot/lib/ObjectModel/CGI/Page.pm index 50598bfa1..ff7e8487a 100644 --- a/testbot/lib/ObjectModel/CGI/Page.pm +++ b/testbot/lib/ObjectModel/CGI/Page.pm @@ -19,14 +19,14 @@ use strict; +package ObjectModel::CGI::Page; + =head1 NAME ObjectModel::CGI::Page - Base class for web pages =cut -package ObjectModel::CGI::Page; - use CGI; use vars qw(@ISA @EXPORT $PageBaseCreator); diff --git a/testbot/lib/WineTestBot/CGI/PageBase.pm b/testbot/lib/WineTestBot/CGI/PageBase.pm index 14900904f..fa383c512 100644 --- a/testbot/lib/WineTestBot/CGI/PageBase.pm +++ b/testbot/lib/WineTestBot/CGI/PageBase.pm @@ -20,14 +20,14 @@ use strict; +package WineTestBot::CGI::PageBase; + =head1 NAME WineTestBot::CGI::PageBase - Base class for web pages =cut -package WineTestBot::CGI::PageBase; - use Apache2::Const -compile => qw(REDIRECT); use Apache2::ServerRec; use CGI::Cookie; diff --git a/testbot/lib/WineTestBot/CGI/Sessions.pm b/testbot/lib/WineTestBot/CGI/Sessions.pm index f9f791dd4..4b1f6b3c4 100644 --- a/testbot/lib/WineTestBot/CGI/Sessions.pm +++ b/testbot/lib/WineTestBot/CGI/Sessions.pm @@ -19,14 +19,14 @@ use strict; -=head1 NAME -WineTestBot::CGI::Sessions - Session collection +package WineTestBot::CGI::Session; -=cut +=head1 NAME +WineTestBot::CGI::Session - A web user's session -package WineTestBot::CGI::Session; +=cut use WineTestBot::Utils; use WineTestBot::WineTestBotObjects; @@ -44,8 +44,15 @@ sub InitializeNew($$) $self->Permanent(!1); } + package WineTestBot::CGI::Sessions; +=head1 NAME + +WineTestBot::CGI::Sessions - A Session collection + +=cut + use CGI::Cookie; use ObjectModel::BasicPropertyDescriptor; use ObjectModel::ItemrefPropertyDescriptor; diff --git a/testbot/lib/WineTestBot/Engine/Events.pm b/testbot/lib/WineTestBot/Engine/Events.pm index 36895f418..c3ebe9baf 100644 --- a/testbot/lib/WineTestBot/Engine/Events.pm +++ b/testbot/lib/WineTestBot/Engine/Events.pm @@ -19,14 +19,14 @@ use strict; +package WineTestBot::Engine::Events; + =head1 NAME WineTestBot::Engine::Events - Engine events =cut -package WineTestBot::Engine::Events; - use vars qw (@ISA @EXPORT); require Exporter; diff --git a/testbot/lib/WineTestBot/Engine/Notify.pm b/testbot/lib/WineTestBot/Engine/Notify.pm index 5ae663426..c277f7aa9 100644 --- a/testbot/lib/WineTestBot/Engine/Notify.pm +++ b/testbot/lib/WineTestBot/Engine/Notify.pm @@ -19,14 +19,14 @@ use strict; +package WineTestBot::Engine::Notify; + =head1 NAME WineTestBot::Engine::Notify - Engine notification =cut -package WineTestBot::Engine::Notify; - use Socket; use WineTestBot::Config; -- 2.16.1