[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:31 UTC 2013
The following commit has been merged in the master branch:
commit 4e9e2cf22418bc16f31b02004f544ec4003d8a74
Author: Tomas Doran <bobtfish at bobtfish.net>
Date: Tue Jul 31 08:42:46 2012 +0100
Tweaks to show how MooX::Options is going to work
diff --git a/lib/Message/Passing.pm b/lib/Message/Passing.pm
index f29567a..a327e39 100644
--- a/lib/Message/Passing.pm
+++ b/lib/Message/Passing.pm
@@ -236,7 +236,7 @@ Outputs send data to somewhere, i.e. they consume messages.
=head1 THIS MODULE
-This is a simple L<MooseX::Options> script, with one input, one filter
+This is a simple L<MooX::Options> script, with one input, one filter
and one output. To build your own similar scripts, see:
=over
diff --git a/lib/Message/Passing/Manual/Components.pod b/lib/Message/Passing/Manual/Components.pod
index cc06ef1..a31e106 100644
--- a/lib/Message/Passing/Manual/Components.pod
+++ b/lib/Message/Passing/Manual/Components.pod
@@ -18,24 +18,25 @@ An example of doing this is:
package Message::Passing::Script::WebHooks;
use Moo;
+ use MooX::Options;
use namespace::clean -except => 'meta';
extends 'Message::Passing';
- has '+encoder' => (
+ option '+encoder' => (
init_arg => undef,
default => '+Message::Passing::Filter::Encoder::Null',
- traits => ['NoGetopt'],
+ nogetopt => 1,
);
- has '+output' => (
- traits => ['NoGetopt'],
+ option '+output' => (
+ nogetopt => 1,
);
__PACKAGE__->start( output => 'WebHooks' ) unless caller;
This shows overriding the default command line options, as this script is
-dedicated to L<Message::Passing::Output::WebHooks>..
+dedicated to L<Message::Passing::Output::WebHooks>.
=head2 Different scripts
@@ -127,3 +128,4 @@ example.
See L<Message::Passing>.
=cut
+
diff --git a/lib/Message/Passing/Manual/Concepts.pod b/lib/Message/Passing/Manual/Concepts.pod
index 9ae9c17..0d7c013 100644
--- a/lib/Message/Passing/Manual/Concepts.pod
+++ b/lib/Message/Passing/Manual/Concepts.pod
@@ -43,7 +43,7 @@ An optional L<Message::Passing::Role::Filter> is supplied, allowing you to provi
method:
with 'Message::Passing::Role::Filter';
-
+
sub filter {
my ($self, $message) = @_;
return $message; # Or return undef to drop it
@@ -71,7 +71,7 @@ So, this is all pretty easy, and you already know enough to pick up some compone
use Message::Passing::Input::FileTail;
use Message::Passing::Output::STDOUT;
-
+
Message::Passing::Input::FileTail->new(
filename => $ARGV[0],
output_to => Message::Passing::Output::STDOUT->new,
@@ -104,10 +104,10 @@ The example above becomes:
L<AnyEvent> has been mentioned, and it's expected that scripts will use a supported event
loop. This implies that your code is asynchronous, which is generally fine - however it should
be noted that doing any long operation (non trivial database queries) will block the entire server - meaning
-no events will be processed.
+no events will be processed.
In cases such as these, running a pool of worker processes to distribute the blocking jobs is more appropriate,
-and easy to wire up (on one or more hosts). This is documented more fully in L<Message::Passing::Manual::Workers> XXX
+and easy to wire up (on one or more hosts). This is documented more fully in L<Message::Passing::Manual::Workers>
=head1 ZeroMQ
diff --git a/lib/Message/Passing/Manual/Cookbook.pod b/lib/Message/Passing/Manual/Cookbook.pod
index bdab8f4..b73b472 100644
--- a/lib/Message/Passing/Manual/Cookbook.pod
+++ b/lib/Message/Passing/Manual/Cookbook.pod
@@ -83,13 +83,12 @@ messages to it. The listener will then forward from each host to a central aggre
=head2 On host collector
- message-pass --input Syslog --output ZeroMQ --output_options '{"connect":"tcp://192.168.0.1:5558"}'
+ message-pass --input Syslog --output ZeroMQ --output_options '{"connect":"tcp://192.168.0.1:5558"}'
=head2 Configuring your syslogd
This should be easy, here's an example of what to add to rsyslogd.conf to get the syslog resent.
-
*.* =192.168.0.1:5140
=head1 Aggregating everything
@@ -103,3 +102,4 @@ directly across the network - which is more resilient to short network outages.
See L<Message::Passing>.
=cut
+
diff --git a/lib/Message/Passing/Manual/Workers.pod b/lib/Message/Passing/Manual/Workers.pod
index 0980ff0..4bb93cf 100644
--- a/lib/Message/Passing/Manual/Workers.pod
+++ b/lib/Message/Passing/Manual/Workers.pod
@@ -2,9 +2,9 @@
Message::Passing::Manual::Workers
-
=head1 AUTHOR, COPYRIGHT & LICENSE
See L<Message::Passing>.
=cut
+
--
libmessage-passing-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list