[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:26 UTC 2013
The following commit has been merged in the master branch:
commit 90eb9b056ac84581d99b13f88b6cb6b8053abdfc
Author: Tomas Doran <bobtfish at bobtfish.net>
Date: Sun Jul 15 19:32:06 2012 +0100
More cleanups
diff --git a/lib/Message/Passing/Manual/Components.pod b/lib/Message/Passing/Manual/Components.pod
index 552d7e1..cc06ef1 100644
--- a/lib/Message/Passing/Manual/Components.pod
+++ b/lib/Message/Passing/Manual/Components.pod
@@ -17,7 +17,7 @@ the script.
An example of doing this is:
package Message::Passing::Script::WebHooks;
- use Moose;
+ use Moo;
use namespace::clean -except => 'meta';
extends 'Message::Passing';
diff --git a/lib/Message/Passing/Manual/Concepts.pod b/lib/Message/Passing/Manual/Concepts.pod
index eb6a598..9ae9c17 100644
--- a/lib/Message/Passing/Manual/Concepts.pod
+++ b/lib/Message/Passing/Manual/Concepts.pod
@@ -21,7 +21,7 @@ An output is simply a class with a C<consume> method. This will be called with a
as it's only parameter, like this:
$output->consume($message);
-
+
Outputs are expected to compose L<Message::Passing::Role::Output>.
=head2 INPUTS
@@ -30,9 +30,9 @@ An input is simply a class with an C<output_to> attribute. Your code just calls
method on it's output, like this:
$self->output_to->consume($message);
-
+
Outputs are expected to compose L<Message::Passing::Role::Input> which provides this attribute, and
-use the C<BUILD> method from Moose to do any work needed to start listening for events.
+use the C<BUILD> method from L<Moo> to do any work needed to start listening for events.
=head2 FILTER
diff --git a/lib/Message/Passing/Role/CLIComponent.pm b/lib/Message/Passing/Role/CLIComponent.pm
index c8f00f1..13c937e 100644
--- a/lib/Message/Passing/Role/CLIComponent.pm
+++ b/lib/Message/Passing/Role/CLIComponent.pm
@@ -19,7 +19,7 @@ sub make_variant {
$arguments{'option'}->("$name" =>
format => 's',
-# isa => Str,
+ isa => Str,
is => 'ro',
# required => "$has_default" ? 0 : 1,
"$has_default" ? ( default => sub { "$default" } ) : (),
@@ -50,7 +50,7 @@ Message::Passing::Role::CLIComponent - Role providing 'foo' and 'foo_options' at
=head1 SYNOPSIS
package My::Message::Passing::Script;
- use Moose;
+ use Moo;
with
'Message::Passing::Role::CLIComponent' => { name => 'input', default => 'STDIN' },
--
libmessage-passing-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list