diff options
| author | Joe Atzberger <ohiocore@gmail.com> | 2012-07-11 19:31:21 -0300 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2012-07-16 10:19:37 -0500 |
| commit | 6dfc172ab8d6d9ac8e91ee3c64ae421314402058 (patch) | |
| tree | f31a30b545cc97ca709c38e45a68aed01ecb578d | |
| parent | 90a3d73114147b500e5f4617d64af71e5b9c471f (diff) | |
| download | perl-libnet-6dfc172ab8d6d9ac8e91ee3c64ae421314402058.tar.gz | |
Just some whitespace formatting and a POD typo correction
| -rw-r--r-- | Net/POP3.pm | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/Net/POP3.pm b/Net/POP3.pm index 8381c81..f4ac8f5 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -307,26 +307,22 @@ sub _get_mailbox_count { } -sub _STAT { shift->command('STAT')->response() == CMD_OK } -sub _LIST { shift->command('LIST', @_)->response() == CMD_OK } +sub _STAT { shift->command('STAT' )->response() == CMD_OK } +sub _LIST { shift->command('LIST', @_)->response() == CMD_OK } sub _RETR { shift->command('RETR', $_[0])->response() == CMD_OK } sub _DELE { shift->command('DELE', $_[0])->response() == CMD_OK } -sub _NOOP { shift->command('NOOP')->response() == CMD_OK } -sub _RSET { shift->command('RSET')->response() == CMD_OK } -sub _QUIT { shift->command('QUIT')->response() == CMD_OK } -sub _TOP { shift->command('TOP', @_)->response() == CMD_OK } -sub _UIDL { shift->command('UIDL', @_)->response() == CMD_OK } +sub _NOOP { shift->command('NOOP' )->response() == CMD_OK } +sub _RSET { shift->command('RSET' )->response() == CMD_OK } +sub _QUIT { shift->command('QUIT' )->response() == CMD_OK } +sub _TOP { shift->command( 'TOP', @_)->response() == CMD_OK } +sub _UIDL { shift->command('UIDL', @_)->response() == CMD_OK } sub _USER { shift->command('USER', $_[0])->response() == CMD_OK } sub _PASS { shift->command('PASS', $_[0])->response() == CMD_OK } -sub _APOP { shift->command('APOP', @_)->response() == CMD_OK } +sub _APOP { shift->command('APOP', @_)->response() == CMD_OK } sub _PING { shift->command('PING', $_[0])->response() == CMD_OK } - - sub _RPOP { shift->command('RPOP', $_[0])->response() == CMD_OK } -sub _LAST { shift->command('LAST')->response() == CMD_OK } - - -sub _CAPA { shift->command('CAPA')->response() == CMD_OK } +sub _LAST { shift->command('LAST' )->response() == CMD_OK } +sub _CAPA { shift->command('CAPA' )->response() == CMD_OK } sub quit { @@ -565,7 +561,7 @@ on the object. =over 4 -=item new ( [ HOST ] [, OPTIONS ] 0 +=item new ( [ HOST ] [, OPTIONS ] ) This is the constructor for a new Net::POP3 object. C<HOST> is the name of the remote host to which an POP3 connection is required. |