[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:12 UTC 2013
The following commit has been merged in the master branch:
commit 0a41065c0bda8ee7ad9727322797ca25adafcdb4
Author: Tomas Doran <bobtfish at bobtfish.net>
Date: Sun Jun 10 17:37:17 2012 +0100
Docs for Message::Passing::Role::CLIComponent
diff --git a/TODO b/TODO
index ac4062f..7c8dbe9 100644
--- a/TODO
+++ b/TODO
@@ -15,10 +15,6 @@ Specific adaptors
- STOMP multiple subscriptions
Docs:
-
- Message::Passing::Role::CLIComponent:
- - Write docs!
-
Role::ConnectionManager
- Fix docs
diff --git a/lib/Message/Passing/Role/CLIComponent.pm b/lib/Message/Passing/Role/CLIComponent.pm
index 22f6776..15e080c 100644
--- a/lib/Message/Passing/Role/CLIComponent.pm
+++ b/lib/Message/Passing/Role/CLIComponent.pm
@@ -43,3 +43,74 @@ role {
1;
+=head1 NAME
+
+Message::Passing::Role::CLIComponent - Role providing 'foo' and 'foo_options' attributes
+
+=head1 SYNOPSIS
+
+ package My::Message::Passing::Script;
+ use Moose;
+
+ with
+ 'Message::Passing::Role::CLIComponent' => { name => 'input', default => 'STDIN' },
+ qw/
+ Message::Passing::Role::Script
+ MooseX::Getopt
+ /;
+
+ sub build_chain {
+ my $self = shift;
+ message_chain {
+ input example => ( %{ $self->input_options }, output_to => 'test_out', class => $self->input, );
+ output test_out => ( ... );
+ };
+ }
+
+ __PACKAGE__->start unless caller;
+ 1;
+
+=head1 DESCRIPTION
+
+A L<MooseX::Role::Parameterized> role, which is used to provide a pair of attributes for name/options
+as per the L<message-pass> script.
+
+=head1 ROLE PARAMETERS
+
+=head2 name
+
+The name of the main attribute. An additional attribute called "${name}_options" will also be added,
+which coerces a hashref from JSON.
+
+=head2 default
+
+A default value for the main attribute. If this is not supplied, than the attribute will be required.
+
+=head1 AUTHOR
+
+Tomas (t0m) Doran <bobtfish at bobtfish.net>
+
+=head1 SPONSORSHIP
+
+This module exists due to the wonderful people at Suretec Systems Ltd.
+<http://www.suretecsystems.com/> who sponsored its development for its
+VoIP division called SureVoIP <http://www.surevoip.co.uk/> for use with
+the SureVoIP API -
+<http://www.surevoip.co.uk/support/wiki/api_documentation>
+
+=head1 COPYRIGHT
+
+Copyright Suretec Systems Ltd. 2012.
+
+Logstash (upon which many ideas for this project is based, but
+which we do not reuse any code from) is copyright 2010 Jorden Sissel.
+
+=head1 LICENSE
+
+GNU Affero General Public License, Version 3
+
+If you feel this is too restrictive to be able to use this software,
+please talk to us as we'd be willing to consider re-licensing under
+less restrictive terms.
+
+=cut
--
libmessage-passing-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list