Alway put it right after the package statement.
Signed-off-by: Francois Gouget fgouget@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;