[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88
Tomas Doran
bobtfish at bobtfish.net
Mon May 6 11:57:22 UTC 2013
The following commit has been merged in the master branch:
commit 3491f05ce2fc36afca2d4550c77e2ac3f092cd1d
Author: Tomas Doran <bobtfish at bobtfish.net>
Date: Sun Jul 8 08:15:29 2012 +0100
Fix more bugs
diff --git a/lib/Message/Passing/Role/ConnectionManager.pm b/lib/Message/Passing/Role/ConnectionManager.pm
index a230de5..5751742 100644
--- a/lib/Message/Passing/Role/ConnectionManager.pm
+++ b/lib/Message/Passing/Role/ConnectionManager.pm
@@ -1,7 +1,8 @@
package Message::Passing::Role::ConnectionManager;
use Moo::Role;
-use MooX::Types::MooseLike qw/ Bool /;
+use MooX::Types::MooseLike::Base qw/ Bool ArrayRef /;
use Scalar::Util qw/ blessed weaken /;
+use Carp qw/ confess /;
use namespace::clean -except => 'meta';
requires '_build_connection';
@@ -74,7 +75,7 @@ before _clear_connection => sub {
};
has _connect_subscribers => (
- isa => 'ArrayRef',
+ isa => ArrayRef,
is => 'ro',
default => sub { [] },
writer => '_set_connect_subscribers',
diff --git a/lib/Message/Passing/Role/Script.pm b/lib/Message/Passing/Role/Script.pm
index 73b77c7..c38d3c8 100644
--- a/lib/Message/Passing/Role/Script.pm
+++ b/lib/Message/Passing/Role/Script.pm
@@ -11,7 +11,7 @@ requires 'build_chain';
has daemonize => (
is => 'ro',
isa => Bool,
- default => 0,
+ default => sub { 0 },
);
has io_priority => (
diff --git a/t/crypt_cbc.t b/t/crypt_cbc.t
index b606cd2..915c7f2 100644
--- a/t/crypt_cbc.t
+++ b/t/crypt_cbc.t
@@ -2,9 +2,6 @@ use strict;
use warnings;
use Test::More;
use Try::Tiny;
-use Message::Passing::Input::Null;
-use Message::Passing::Output::Test;
-use Message::Passing::Output::Null;
plan skip_all => "No Crypt::CBC or no Crypt::Blowfish"
unless try {
@@ -14,6 +11,9 @@ plan skip_all => "No Crypt::CBC or no Crypt::Blowfish"
use_ok 'Message::Passing::Filter::Decoder::Crypt::CBC';
use_ok 'Message::Passing::Filter::Encoder::Crypt::CBC';
+use_ok 'Message::Passing::Output::Test';
+use_ok 'Message::Passing::Input::Null';
+use_ok 'Message::Passing::Output::Null';
my $cbct = Message::Passing::Output::Test->new;
my $cbc = Message::Passing::Input::Null->new(
--
libmessage-passing-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list