[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 b6d82254b7d5de7e4a41fbd761fc23184e21f278
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Mon Jun 11 13:24:27 2012 -0400

    Add error chain possibility

diff --git a/lib/Message/Passing/Role/HasErrorChain.pm b/lib/Message/Passing/Role/HasErrorChain.pm
new file mode 100644
index 0000000..f706933
--- /dev/null
+++ b/lib/Message/Passing/Role/HasErrorChain.pm
@@ -0,0 +1,53 @@
+package Message::Passing::Role::HasErrorChain;
+use Moose::Role;
+use Message::Passing::Output::STDERR;
+use namespace::autoclean;
+
+has error => (
+    does => 'Message::Passing::Role::Output',
+    is => 'ro',
+    default => sub {
+        Message::Passing::Output::STDERR->new;
+    },
+);
+
+1;
+
+=head1 NAME
+
+Message::Passing::Role::HasErrorChain - A role for components which can report errors
+
+=head1 SYNOPSIS
+
+    # Note this is an example package, and does not really exist!
+    package Message::Passing::Output::ErrorAllMessages;
+    use Moose;
+    use namespace::autoclean;
+    
+    with qw/
+        Message::Passing::Role::Output
+        Message::Passing::Role::HasErrorChain
+    /;
+    
+    sub consume {
+        my ($self, $message) = @_;
+        $self->error->consume($message);
+    }
+    
+=head1 DESCRIPTION
+
+Some components can create an error stream in addition to a message stream.
+
+=head1 SPONSORSHIP
+
+This module exists due to the wonderful people at Suretec Systems Ltd.
+<http://www.suretecsystems.com/> who sponsored its development for its
+VoIP division called SureVoIP <http://www.surevoip.co.uk/> for use with
+the SureVoIP API - 
+<http://www.surevoip.co.uk/support/wiki/api_documentation>
+
+=head1 AUTHOR, COPYRIGHT AND LICENSE
+
+See L<Message::Passing>.
+
+=cut

-- 
libmessage-passing-perl Debian packaging