[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit b688ed88a172c8190c5e014bd8705fb401ab89fb
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sun Jun 10 20:40:04 2012 +0100

    Another standard role

diff --git a/Changes b/Changes
index 2da4d6c..1e78313 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+  - Add standard roles to unify the names of connection attributes:
+    Message::Passing::Role::HasHostnameAndPort
+    Message::Passing::Role::HasUsernameAndPassword
+
   - Document the attributes in Message::Passing::Role::Script
 
   - Add STDERR output.
diff --git a/TODO b/TODO
index fce56f0..523d504 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,10 @@
 Need upload:
     - Message::Passing
-    - Message::Passing::Redis
+    - Message::Passing::Redis *
+    - Message::Passing::Input::FreeSWITCH *
+    
+    - Message::Passing::STOMP
+    - Message::Passing::AMQP
 
 Code core/general:
     - Connection code cleanup
diff --git a/lib/Message/Passing/Role/ConnectionManager.pm b/lib/Message/Passing/Role/ConnectionManager.pm
index fd4faae..ec83381 100644
--- a/lib/Message/Passing/Role/ConnectionManager.pm
+++ b/lib/Message/Passing/Role/ConnectionManager.pm
@@ -175,7 +175,8 @@ be undefined if we are during a reconnect timeout.
 
 =head2 timeout
 
-Connections will be timed out and aborted after this time if they haven't sucessfully connected.
+Connections will be timed out and aborted after this time if they haven't
+successfully connected.
 
 Defaults to 30s
 
@@ -194,7 +195,8 @@ This is called by your Input or Output, as C<< $self->connection_manager->subscr
 
 This is done for you by L<Message::Passing::Role::HasAConnection> usually..
 
-This arranges to store a weak reference to your component, allowing the conenction manager to call the C<< ->connect >>
+This arranges to store a weak reference to your component, allowing the 
+connection manager to call the C<< ->connect >>
 or C<< ->disconnect >> methods for any components registered when a connection is established or destroyed.
 
 Note that if the connection manager is already connected, it will B<immediately> call the C<< ->connect >> method.
diff --git a/lib/Message/Passing/Role/HasUsernameAndPassword.pm b/lib/Message/Passing/Role/HasUsernameAndPassword.pm
new file mode 100644
index 0000000..4325062
--- /dev/null
+++ b/lib/Message/Passing/Role/HasUsernameAndPassword.pm
@@ -0,0 +1,12 @@
+package Message::Passing::Role::HasUsernameAndPassword;
+use Moose::Role;
+use namespace::autoclean;
+
+has [qw/ username password /] => (
+    is => 'ro',
+    isa => 'Str',
+    required => 1,
+);
+
+1;
+
diff --git a/lib/Message/Passing/Role/Script.pm b/lib/Message/Passing/Role/Script.pm
index 7852774..250417a 100644
--- a/lib/Message/Passing/Role/Script.pm
+++ b/lib/Message/Passing/Role/Script.pm
@@ -175,7 +175,7 @@ Changes the user the script is running as. You probably need to run the script a
 
 =head2 pid_file
 
-Write a pid file out. Useful for running Message::Passing scripts as daemons and/or from init scripts.
+Write a pid file out. Useful for running Message::Passing scripts as daemons and/or from init.d scripts.
 
 =head1 METHODS
 
diff --git a/t/00_compile.t b/t/00_compile.t
index 59a5b09..ab389e8 100644
--- a/t/00_compile.t
+++ b/t/00_compile.t
@@ -24,6 +24,7 @@ use_ok('Message::Passing::Filter::Encoder::Null');
 use_ok('Message::Passing::Filter::Decoder::JSON');
 use_ok('Message::Passing::Filter::Decoder::Null');
 use_ok('Message::Passing::Role::HasHostnameAndPort');
+use_ok('Message::Passing::Role::HasUsernameAndPassword');
 
 done_testing;
 
diff --git a/t/author/spelling.t b/t/author/spelling.t
index e305947..a58dba5 100644
--- a/t/author/spelling.t
+++ b/t/author/spelling.t
@@ -4,6 +4,7 @@ use Test::More;
 use Test::Spelling;
 
 add_stopwords(qw(
+    init
     fh
     privileged
     conf

-- 
libmessage-passing-perl Debian packaging