[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 11fff8d46cbb05acfbfaaab66b820a93e35b50a5
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sun Jul 15 19:30:12 2012 +0100

    And make the tests only use Moo

diff --git a/t/role_connectionmanager.t b/t/role_connectionmanager.t
index 73cd9d9..bdbfbfe 100644
--- a/t/role_connectionmanager.t
+++ b/t/role_connectionmanager.t
@@ -5,7 +5,7 @@ use AnyEvent;
 
 {
     package Connection::Subscriber;
-    use Moose;
+    use Moo;
     use namespace::clean -except => 'meta';
 
     has am_connected => ( is => 'rw' );
@@ -20,14 +20,14 @@ use AnyEvent;
 }
 {
     package Some::Shonky::Async::Code;
-    use Moose;
+    use Moo;
     use namespace::clean -except => 'meta';
 
 }
 
 {
     package My::Connection::Wrapper;
-    use Moose;
+    use Moo;
     use Scalar::Util qw/ weaken /;
     use namespace::clean -except => 'meta';
 
@@ -102,8 +102,9 @@ $cv->recv;
 $i->_set_connected(1);
 ok $i->{connection};
 my ($c, $d) = (0,0);
-My::Connection::Wrapper->meta->add_before_method_modifier('_build_timeout_timer', sub { $c++ });
-My::Connection::Wrapper->meta->add_before_method_modifier('_build_reconnect_timer', sub { $d++ });
+no warnings 'redefine';
+*My::Connection::Wrapper::_build_timeout_timer = sub { $c++; shift->next::method(@_) };
+*My::Connection::Wrapper::_build_reconnect_timer = sub { $d++; shift->next::method(@_) };
 $cv = AnyEvent->condvar;
 {
     my $t; $t = AnyEvent->timer(
diff --git a/t/role_hasaconnection.t b/t/role_hasaconnection.t
index e16684e..3b2a848 100644
--- a/t/role_hasaconnection.t
+++ b/t/role_hasaconnection.t
@@ -8,7 +8,7 @@ BEGIN {
 
 {
     package TestConnectionManager;
-    use Moose;
+    use Moo;
     use namespace::clean -except => 'meta';
 
     our @THINGS;
@@ -20,7 +20,7 @@ BEGIN {
 }
 {
     package TestWithConnection;
-    use Moose;
+    use Moo;
     use namespace::clean -except => 'meta';
 
     with 'Message::Passing::Role::HasAConnection';

-- 
libmessage-passing-perl Debian packaging