Light fixes in code and POD

Author: iph0

README

@@ -1,4 +1,4 @@
-AnyEvent-RipeRedis version 0.28
+AnyEvent-RipeRedis version 0.29_01
 ======================
 
 INSTALLATION

lib/AnyEvent/RipeRedis.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use base qw( Exporter );
 
-our $VERSION = '0.28';
+our $VERSION = '0.29_01';
 
 use AnyEvent::RipeRedis::Error;
 
@@ -20,7 +20,7 @@ our %ERROR_CODES;
 BEGIN {
   %ERROR_CODES = %AnyEvent::RipeRedis::Error::ERROR_CODES;
   our @EXPORT_OK   = keys %ERROR_CODES;
-  our %EXPORT_TAGS = ( err_codes => \@EXPORT_OK, );
+  our %EXPORT_TAGS = ( err_codes => \@EXPORT_OK );
 }
 
 use constant {
@@ -1215,7 +1215,7 @@ an error messages to C<STDERR>.
 To execute the command you must call specific method with corresponding name.
 The reply to the command is passed to the callback in first argument. If any
 error occurred during the command execution, the error object is passed to the
-callback in second argument. Error object is an instance of the class
+callback in second argument. Error object is the instance of the class
 L<AnyEvent::RipeRedis::Error>.
 
 The command callback is optional. If it is not specified and any error
@@ -1382,7 +1382,7 @@ C<UNSUBSCRIBE>, C<PUNSUBSCRIBE> and C<QUIT> commands.
 The detailed information about Redis Pub/Sub can be found here:
 L<http://redis.io/topics/pubsub>
 
-=head2 subscribe( @channels, ( $cb | \%cbs ) )
+=head2 subscribe( @channels, ( $cb->( $msg, $channel ) | \%cbs ) )
 
 Subscribes the client to the specified channels.
 
@@ -1428,7 +1428,7 @@ C<on_message> callback.
     }
   );
 
-=head2 psubscribe( @patterns, ( $cb | \%cbs ) )
+=head2 psubscribe( @patterns, ( $cb->( $msg, $pattern, $channel ) | \%cbs ) )
 
 Subscribes the client to the given patterns. See C<subscribe()> method for
 details.
@@ -1763,52 +1763,52 @@ L<http://redis.io/commands/info>
 
 =head2 host()
 
-Get current host of the client.
+Gets current host of the client.
 
 =head2 port()
 
-Get current port of the client.
+Gets current port of the client.
 
 =head2 select( $index, [, $cb->( $reply, $err ) ] )
 
 Selects the database by numeric index.
 
 =head2 database()
 
-Get selected database index.
+Gets selected database index.
 
 =head2 utf8( [ $boolean ] )
 
 Enables or disables UTF-8 mode.
 
 =head2 connection_timeout( [ $fractional_seconds ] )
 
-Get or set the C<connection_timeout> of the client. The C<undef> value resets
+Gets or sets the C<connection_timeout> of the client. The C<undef> value resets
 the C<connection_timeout> to default value.
 
 =head2 read_timeout( [ $fractional_seconds ] )
 
-Get or set the C<read_timeout> of the client.
+Gets or sets the C<read_timeout> of the client.
 
 =head2 reconnect( [ $boolean ] )
 
 Enables or disables reconnection mode of the client.
 
 =head2 reconnect_interval( [ $fractional_seconds ] )
 
-Get or set C<reconnect_interval> of the client.
+Gets or sets C<reconnect_interval> of the client.
 
 =head2 on_connect( [ $callback ] )
 
-Get or set the C<on_connect> callback.
+Gets or sets the C<on_connect> callback.
 
 =head2 on_disconnect( [ $callback ] )
 
-Get or set the C<on_disconnect> callback.
+Gets or sets the C<on_disconnect> callback.
 
 =head2 on_error( [ $callback ] )
 
-Get or set the C<on_error> callback.
+Gets or sets the C<on_error> callback.
 
 =head1 SEE ALSO
 

lib/AnyEvent/RipeRedis/Error.pm

@@ -4,7 +4,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-our $VERSION = '0.28';
+our $VERSION = '0.29_01';
 
 our %ERROR_CODES = (
   E_CANT_CONN                  => 1,
@@ -90,10 +90,15 @@ Get error code.
 
 L<AnyEvent::RipeRedis>
 
+=head1 AUTHOR
+
+Eugene Ponizovsky, E<lt>[email protected]E<gt>
+
+Sponsored by SMS Online, E<lt>[email protected]E<gt>
+
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2012-2016, Eugene Ponizovsky, E<lt>[email protected]E<gt>.
-All rights reserved.
+Copyright (c) 2012-2016, Eugene Ponizovsky, SMS Online. All rights reserved.
 
 This module is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.

t/02-accessors.t

@@ -2,7 +2,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-use Test::More tests => 37;
+use Test::More tests => 38;
 use AnyEvent::RipeRedis qw( :err_codes );
 use AnyEvent::RipeRedis::Error;
 
@@ -33,6 +33,7 @@ can_ok( $redis, 'connection_timeout' );
 can_ok( $redis, 'read_timeout' );
 can_ok( $redis, 'utf8' );
 can_ok( $redis, 'reconnect' );
+can_ok( $redis, 'reconnect_interval' );
 can_ok( $redis, 'on_connect' );
 can_ok( $redis, 'on_disconnect' );
 can_ok( $redis, 'on_error' );