[Bps-public-commit] r9708 - in Net-Server-IMAP: . lib/Net/IMAP lib/Net/IMAP/Server/Command t

alexmv at bestpractical.com alexmv at bestpractical.com
Tue Nov 20 17:06:33 EST 2007


Author: alexmv
Date: Tue Nov 20 17:06:31 2007
New Revision: 9708

Modified:
   Net-Server-IMAP/   (props changed)
   Net-Server-IMAP/Changes
   Net-Server-IMAP/MANIFEST
   Net-Server-IMAP/META.yml
   Net-Server-IMAP/Makefile.PL
   Net-Server-IMAP/README
   Net-Server-IMAP/lib/Net/IMAP/Server.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm
   Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm
   Net-Server-IMAP/t/00.load.t

Log:
 r24980 at zoq-fot-pik:  chmrr | 2007-11-20 17:05:07 -0500
  * Step two of renaming


Modified: Net-Server-IMAP/Changes
==============================================================================
--- Net-Server-IMAP/Changes	(original)
+++ Net-Server-IMAP/Changes	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-Revision history for Net-Server-IMAP4
+Revision history for Net-IMAP-Server
 
 0.0.1  Mon Apr  3 11:31:52 2006
        Initial release.

Modified: Net-Server-IMAP/MANIFEST
==============================================================================
--- Net-Server-IMAP/MANIFEST	(original)
+++ Net-Server-IMAP/MANIFEST	Tue Nov 20 17:06:31 2007
@@ -9,32 +9,32 @@
 inc/Module/Install/Metadata.pm
 inc/Module/Install/Win32.pm
 inc/Module/Install/WriteAll.pm
-lib/Net/Server/IMAP.pm
-lib/Net/Server/IMAP/Command.pm
-lib/Net/Server/IMAP/Command/Authenticate.pm
-lib/Net/Server/IMAP/Command/Capability.pm
-lib/Net/Server/IMAP/Command/Check.pm
-lib/Net/Server/IMAP/Command/Close.pm
-lib/Net/Server/IMAP/Command/Create.pm
-lib/Net/Server/IMAP/Command/Examine.pm
-lib/Net/Server/IMAP/Command/Expunge.pm
-lib/Net/Server/IMAP/Command/Fetch.pm
-lib/Net/Server/IMAP/Command/List.pm
-lib/Net/Server/IMAP/Command/Login.pm
-lib/Net/Server/IMAP/Command/Logout.pm
-lib/Net/Server/IMAP/Command/Lsub.pm
-lib/Net/Server/IMAP/Command/Noop.pm
-lib/Net/Server/IMAP/Command/Select.pm
-lib/Net/Server/IMAP/Command/Starttls.pm
-lib/Net/Server/IMAP/Command/Status.pm
-lib/Net/Server/IMAP/Command/Store.pm
-lib/Net/Server/IMAP/Command/Subscribe.pm
-lib/Net/Server/IMAP/Command/Uid.pm
-lib/Net/Server/IMAP/Connection.pm
-lib/Net/Server/IMAP/DefaultAuth.pm
-lib/Net/Server/IMAP/DefaultModel.pm
-lib/Net/Server/IMAP/Mailbox.pm
-lib/Net/Server/IMAP/Message.pm
+lib/Net/IMAP/Server.pm
+lib/Net/IMAP/Server/Command.pm
+lib/Net/IMAP/Server/Command/Authenticate.pm
+lib/Net/IMAP/Server/Command/Capability.pm
+lib/Net/IMAP/Server/Command/Check.pm
+lib/Net/IMAP/Server/Command/Close.pm
+lib/Net/IMAP/Server/Command/Create.pm
+lib/Net/IMAP/Server/Command/Examine.pm
+lib/Net/IMAP/Server/Command/Expunge.pm
+lib/Net/IMAP/Server/Command/Fetch.pm
+lib/Net/IMAP/Server/Command/List.pm
+lib/Net/IMAP/Server/Command/Login.pm
+lib/Net/IMAP/Server/Command/Logout.pm
+lib/Net/IMAP/Server/Command/Lsub.pm
+lib/Net/IMAP/Server/Command/Noop.pm
+lib/Net/IMAP/Server/Command/Select.pm
+lib/Net/IMAP/Server/Command/Starttls.pm
+lib/Net/IMAP/Server/Command/Status.pm
+lib/Net/IMAP/Server/Command/Store.pm
+lib/Net/IMAP/Server/Command/Subscribe.pm
+lib/Net/IMAP/Server/Command/Uid.pm
+lib/Net/IMAP/Server/Connection.pm
+lib/Net/IMAP/Server/DefaultAuth.pm
+lib/Net/IMAP/Server/DefaultModel.pm
+lib/Net/IMAP/Server/Mailbox.pm
+lib/Net/IMAP/Server/Message.pm
 Makefile.PL
 MANIFEST			This list of files
 META.yml

Modified: Net-Server-IMAP/META.yml
==============================================================================
--- Net-Server-IMAP/META.yml	(original)
+++ Net-Server-IMAP/META.yml	Tue Nov 20 17:06:31 2007
@@ -3,7 +3,7 @@
 distribution_type: module
 generated_by: Module::Install version 0.61
 license: perl
-name: Net-Server-IMAP
+name: Net-IMAP-Server
 no_index: 
   directory: 
     - inc

Modified: Net-Server-IMAP/Makefile.PL
==============================================================================
--- Net-Server-IMAP/Makefile.PL	(original)
+++ Net-Server-IMAP/Makefile.PL	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
 use inc::Module::Install;
 
-name ('Net-Server-IMAP');
+name ('Net-IMAP-Server');
 author ('Jesse Vincent <jesse at bestpractical.com>');
-version_from ('lib/Net/Server/IMAP.pm');
-abstract_from('lib/Net/Server/IMAP.pm');
+version_from ('lib/Net/IMAP/Server.pm');
+abstract_from('lib/Net/IMAP/Server.pm');
 license('perl');
 
 requires('Class::Accessor');

Modified: Net-Server-IMAP/README
==============================================================================
--- Net-Server-IMAP/README	(original)
+++ Net-Server-IMAP/README	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-Net-Server-IMAP4 version 0.0.1
+Net-IMAP-Server version 0.0.1
 
 [ REPLACE THIS...
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server.pm	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP;
+package Net::IMAP::Server;
 
 use warnings;
 use strict;
@@ -12,8 +12,8 @@
 use IO::Socket;
 use IO::Socket::SSL;
 
-use Net::Server::IMAP::Mailbox;
-use Net::Server::IMAP::Connection;
+use Net::IMAP::Server::Mailbox;
+use Net::IMAP::Server::Connection;
 
 our $VERSION = '0.001';
 
@@ -25,8 +25,8 @@
     return $class->SUPER::new(
         {   port        => 8080,
             ssl_port    => 0,
-            auth_class  => "Net::Server::IMAP::DefaultAuth",
-            model_class => "Net::Server::IMAP::DefaultModel",
+            auth_class  => "Net::IMAP::Server::DefaultAuth",
+            model_class => "Net::IMAP::Server::DefaultModel",
             @_,
             connections => {},
         }
@@ -71,7 +71,7 @@
             } else {
 
                 # Process socket
-                local $Net::Server::IMAP::Server = $self;
+                local $Net::IMAP::Server::Server = $self;
                 local $SIG{PIPE} = sub { warn "Broken pipe\n"; $self->connections->{ $fh->fileno}->close };
                 $self->connections->{ $fh->fileno }->handle_lines;
             }
@@ -102,7 +102,7 @@
 
 sub concurrent_mailbox_connections {
     my $class = shift;
-    my $self = ref $class ? $class : $Net::Server::IMAP::Server;
+    my $self = ref $class ? $class : $Net::IMAP::Server::Server;
     my $selected = shift || $self->connection->selected;
 
     return () unless $selected;
@@ -112,7 +112,7 @@
 
 sub concurrent_user_connections {
     my $class = shift;
-    my $self = ref $class ? $class : $Net::Server::IMAP::Server;
+    my $self = ref $class ? $class : $Net::IMAP::Server::Server;
     my $user = shift || $self->connection->auth->user;
 
     return () unless $user;
@@ -125,7 +125,7 @@
     my $handle = shift;
     $handle->blocking(0);
     $self->select->add($handle);
-    my $conn = Net::Server::IMAP::Connection->new(
+    my $conn = Net::IMAP::Server::Connection->new(
         io_handle => $handle,
         server    => $self,
     );
@@ -143,12 +143,12 @@
 
 =head1 NAME
 
-Net::Server::IMAP - [One line description of module's purpose here]
+Net::IMAP::Server - [One line description of module's purpose here]
 
 
 =head1 SYNOPSIS
 
-    use Net::Server::IMAP;
+    use Net::IMAP::Server;
 
 =for author to fill in:
     Brief code example(s) here showing commonest usage(s).
@@ -204,7 +204,7 @@
     that can be set. These descriptions must also include details of any
     configuration language used.
 
-Net::Server::IMAP requires no configuration files or environment variables.
+Net::IMAP::Server requires no configuration files or environment variables.
 
 
 =head1 DEPENDENCIES
@@ -244,7 +244,7 @@
 No bugs have been reported.
 
 Please report any bugs or feature requests to
-C<bug-net-server-imap4 at rt.cpan.org>, or through the web interface at
+C<bug-net-imap-server at rt.cpan.org>, or through the web interface at
 L<http://rt.cpan.org>.
 
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::Command;
+package Net::IMAP::Server::Command;
 
 use warnings;
 use strict;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Append;
+package Net::IMAP::Server::Command::Append;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 use DateTime::Format::Strptime;
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm	Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Authenticate;
+package Net::IMAP::Server::Command::Authenticate;
 
 use warnings;
 use strict;
 
 use MIME::Base64;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 __PACKAGE__->mk_accessors(qw(sasl pending_auth));
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Capability;
+package Net::IMAP::Server::Command::Capability;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Check;
+package Net::IMAP::Server::Command::Check;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Close;
+package Net::IMAP::Server::Command::Close;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Copy;
+package Net::IMAP::Server::Command::Copy;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Create;
+package Net::IMAP::Server::Command::Create;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Delete;
+package Net::IMAP::Server::Command::Delete;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm	Tue Nov 20 17:06:31 2007
@@ -1,11 +1,11 @@
-package Net::Server::IMAP::Command::Examine;
+package Net::IMAP::Server::Command::Examine;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command::Select/;
+use base qw/Net::IMAP::Server::Command::Select/;
 
-# See Net::Server::IMAP::Command::Select, which special-cases the
+# See Net::IMAP::Server::Command::Select, which special-cases the
 # "Examine" command to force the mailbox read-only
 
 1;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Expunge;
+package Net::IMAP::Server::Command::Expunge;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Fetch;
+package Net::IMAP::Server::Command::Fetch;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::List;
+package Net::IMAP::Server::Command::List;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Login;
+package Net::IMAP::Server::Command::Login;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Logout;
+package Net::IMAP::Server::Command::Logout;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Lsub;
+package Net::IMAP::Server::Command::Lsub;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command::List/;
+use base qw/Net::IMAP::Server::Command::List/;
 
 sub traverse {
     my $self  = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Noop;
+package Net::IMAP::Server::Command::Noop;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Rename;
+package Net::IMAP::Server::Command::Rename;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm	Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Search;
+package Net::IMAP::Server::Command::Search;
 
 use warnings;
 use strict;
 use bytes;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Select;
+package Net::IMAP::Server::Command::Select;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Starttls;
+package Net::IMAP::Server::Command::Starttls;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 use IO::Socket::SSL;
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Status;
+package Net::IMAP::Server::Command::Status;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Store;
+package Net::IMAP::Server::Command::Store;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Subscribe;
+package Net::IMAP::Server::Command::Subscribe;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm	Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Uid;
+package Net::IMAP::Server::Command::Uid;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
-use Net::Server::IMAP::Command::Search;
+use base qw/Net::IMAP::Server::Command/;
+use Net::IMAP::Server::Command::Search;
 
 sub validate {
     my $self = shift;
@@ -120,7 +120,7 @@
 sub search {
     my $self = shift;
 
-    my $filter = Net::Server::IMAP::Command::Search::filter($self, @_);
+    my $filter = Net::IMAP::Server::Command::Search::filter($self, @_);
     return unless $filter;
 
     my @results = map {$_->uid} grep {$filter->($_)} $self->connection->get_messages('1:*');

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Unsubscribe;
+package Net::IMAP::Server::Command::Unsubscribe;
 
 use warnings;
 use strict;
 
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
 
 sub validate {
     my $self = shift;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm	Tue Nov 20 17:06:31 2007
@@ -1,11 +1,11 @@
-package Net::Server::IMAP::Connection;
+package Net::IMAP::Server::Connection;
 
 use warnings;
 use strict;
 
 use base 'Class::Accessor';
 
-use Net::Server::IMAP::Command;
+use Net::IMAP::Server::Command;
 
 __PACKAGE__->mk_accessors(qw(server io_handle _selected selected_read_only model pending temporary_messages temporary_sequence_map previous_exists untagged_expunge untagged_fetch ignore_flags));
 
@@ -52,10 +52,10 @@
     my ( $id, $cmd, $options ) = $self->parse_command($content);
     return unless defined $id;
 
-    my $cmd_class = "Net::Server::IMAP::Command::$cmd";
+    my $cmd_class = "Net::IMAP::Server::Command::$cmd";
     $cmd_class->require() || warn $@;
     unless ( $cmd_class->can('run') ) {
-        $cmd_class = "Net::Server::IMAP::Command";
+        $cmd_class = "Net::IMAP::Server::Command";
     }
     my $handler = $cmd_class->new(
         {   server      => $self->server,
@@ -163,7 +163,7 @@
     {
         # When we poll, the things that we find should affect this
         # connection as well; hence, the local to be "connection-less"
-        local $Net::Server::IMAP::Server->{connection};
+        local $Net::IMAP::Server::Server->{connection};
         $self->selected->poll;
     }
 
@@ -171,7 +171,7 @@
         my($m) = $self->get_messages($s);
         $self->untagged_response( $s
                 . " FETCH "
-                . Net::Server::IMAP::Command->data_out( [ $m->fetch([keys %{$self->untagged_fetch->{$s}}]) ] ) );
+                . Net::IMAP::Server::Command->data_out( [ $m->fetch([keys %{$self->untagged_fetch->{$s}}]) ] ) );
     }
     $self->untagged_fetch({});
 

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::DefaultAuth;
+package Net::IMAP::Server::DefaultAuth;
 
 use warnings;
 use strict;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::DefaultModel;
+package Net::IMAP::Server::DefaultModel;
 
 use warnings;
 use strict;
@@ -57,7 +57,7 @@
 
 sub mailbox {
     my $self = shift;
-    return Net::Server::IMAP::Mailbox->new( { model => $self, @_ } );
+    return Net::IMAP::Server::Mailbox->new( { model => $self, @_ } );
 }
 
 1;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm	Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Mailbox;
+package Net::IMAP::Server::Mailbox;
 
 use warnings;
 use strict;
 
-use Net::Server::IMAP::Message;
+use Net::IMAP::Server::Message;
 use base 'Class::Accessor';
 
 __PACKAGE__->mk_accessors(
@@ -53,8 +53,8 @@
 
 sub selected {
     my $self = shift;
-    return $Net::Server::IMAP::Server->connection->selected
-      and $Net::Server::IMAP::Server->connection->selected eq $self;
+    return $Net::IMAP::Server::Server->connection->selected
+      and $Net::IMAP::Server::Server->connection->selected eq $self;
 }
 
 sub add_message {
@@ -77,7 +77,7 @@
 
     # Also need to add it to anyone that has this folder as a
     # temporary message store
-    for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+    for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
         next unless $c->temporary_messages;
 
         push @{$c->temporary_messages}, $message;
@@ -166,7 +166,7 @@
 
 sub exists {
     my $self = shift;
-    $Net::Server::IMAP::Server->connection->previous_exists( scalar @{ $self->messages } )
+    $Net::IMAP::Server::Server->connection->previous_exists( scalar @{ $self->messages } )
       if $self->selected;
     return scalar @{ $self->messages };
 }
@@ -201,10 +201,10 @@
     my $offset   = 0;
     my @messages = @{ $self->messages };
     $self->messages( [ grep { not ( $_->has_flag('\Deleted') and (not $only or $only{$_->sequence}))} @messages ] );
-    for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+    for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
         # Ensure that all other connections with this selected get a
         # temporary message list, if they don't already have one
-        unless (($Net::Server::IMAP::Server->connection and $c eq $Net::Server::IMAP::Server->connection)
+        unless (($Net::IMAP::Server::Server->connection and $c eq $Net::IMAP::Server::Server->connection)
              or $c->temporary_messages) {
             $c->temporary_messages([@messages]);
             $c->temporary_sequence_map({});
@@ -223,7 +223,7 @@
         }
     }
 
-    for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+    for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
         # Also, each connection gets these added to their expunge list
         push @{$c->untagged_expunge}, @ids;
     }
@@ -231,7 +231,7 @@
 
 sub append {
     my $self = shift;
-    my $m = Net::Server::IMAP::Message->new(@_);
+    my $m = Net::IMAP::Server::Message->new(@_);
     $m->set_flag('\Recent', 1);
     $self->add_message($m);
     return $m;
@@ -258,7 +258,7 @@
     my $self = shift;
     my $message = shift || "";
 
-    return Net::Server::IMAP::Message->new($message);
+    return Net::IMAP::Server::Message->new($message);
 }
 
 1;

Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm	(original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm	Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::Message;
+package Net::IMAP::Server::Message;
 
 use warnings;
 use strict;
@@ -67,7 +67,7 @@
 
     my $changed = not $old;
     if ($changed and not @_) {
-        for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self->mailbox)) {
+        for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self->mailbox)) {
             $c->untagged_fetch->{$c->sequence($self)}{FLAGS}++ unless $c->ignore_flags;
         }
     }
@@ -84,7 +84,7 @@
 
     my $changed = $old;
     if ($changed and not @_) {
-        for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self->mailbox)) {
+        for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self->mailbox)) {
             $c->untagged_fetch->{$c->sequence($self)}{FLAGS}++ unless $c->ignore_flags;
         }
     }
@@ -230,7 +230,7 @@
         my @parts        = $mime->parts;
         @parts = () if @parts == 1 and $parts[0] == $mime;
         my $parts = join '', map {
-            Net::Server::IMAP::Command->data_out( $self->mime_bodystructure( $_, $long ) )
+            Net::IMAP::Server::Command->data_out( $self->mime_bodystructure( $_, $long ) )
         } @parts;
 
         return [

Modified: Net-Server-IMAP/t/00.load.t
==============================================================================
--- Net-Server-IMAP/t/00.load.t	(original)
+++ Net-Server-IMAP/t/00.load.t	Tue Nov 20 17:06:31 2007
@@ -1,7 +1,7 @@
 use Test::More tests => 1;
 
 BEGIN {
-use_ok( 'Net::Server::IMAP' );
+use_ok( 'Net::IMAP::Server' );
 }
 
-diag( "Testing Net::Server::IMAP $Net::Server::IMAP::VERSION" );
+diag( "Testing Net::IMAP::Server $Net::IMAP::Server::VERSION" );



More information about the Bps-public-commit mailing list