[libmessage-passing-perl] 02/11: my use of handles isn't officially supported by Moo so use the classic approach instead of failing later

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libmessage-passing-perl.

commit 63a9ca2a965a8812755a753e75415190abd21605
Author: Alexander Hartmaier <abraxxa at cpan.org>
Date:   Mon Jul 29 17:19:07 2013 +0200

    my use of handles isn't officially supported by Moo so use the classic approach instead of failing later
---
 lib/Message/Passing/Filter/Mangle.pm |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Message/Passing/Filter/Mangle.pm b/lib/Message/Passing/Filter/Mangle.pm
index 4e92bd3..2070439 100644
--- a/lib/Message/Passing/Filter/Mangle.pm
+++ b/lib/Message/Passing/Filter/Mangle.pm
@@ -3,14 +3,17 @@ use Moo;
 use MooX::Types::MooseLike::Base qw/ CodeRef /;
 use namespace::clean -except => 'meta';
 
+with 'Message::Passing::Role::Filter';
+
 has filter_function => (
     isa      => CodeRef,
     is       => 'ro',
     required => 1,
-    handles  => { 'filter' => '' },
 );
 
-with 'Message::Passing::Role::Filter';
+sub filter {
+    return shift->filter_function->(@_);
+}
 
 1;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmessage-passing-perl.git