[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 70be91a075cd64179bafe93664d8125fb31ed62b
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Mon Jun 11 13:46:38 2012 -0400

    Make STDIN input saner

diff --git a/lib/Message/Passing/Input/STDIN.pm b/lib/Message/Passing/Input/STDIN.pm
index 1c409db..c1b0f40 100644
--- a/lib/Message/Passing/Input/STDIN.pm
+++ b/lib/Message/Passing/Input/STDIN.pm
@@ -2,20 +2,32 @@ package Message::Passing::Input::STDIN;
 use Moose;
 use AnyEvent;
 use Try::Tiny;
+use Scalar::Util qw/ weaken /;
 use namespace::autoclean;
 
-with 'Message::Passing::Role::Input';
+with qw/
+    Message::Passing::Role::Input
+/;
+
+has reader => (
+    is => 'ro',
+    lazy => 1,
+    default => sub {
+        my $self = shift;
+        weaken($self);
+        AnyEvent->io(fh => \*STDIN, poll => 'r', cb => sub {
+            my $input = <STDIN>;
+            return unless defined $input;
+            chomp($input);
+            return unless length $input;
+            $self->output_to->consume($input);
+        });
+    },
+);
 
 sub BUILD {
     my $self = shift;
-    my $r; $r = AnyEvent->io(fh => \*STDIN, poll => 'r', cb => sub {
-        my $input = <STDIN>;
-        return unless defined $input;
-        chomp($input);
-        return unless length $input;
-        $self->output_to->consume($input);
-        $r;
-    });
+    $self->reader;
 }
 
 __PACKAGE__->meta->make_immutable;

-- 
libmessage-passing-perl Debian packaging