[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:35 UTC 2013


The following commit has been merged in the master branch:
commit 34e41738e46a1c788d646efc6b44108c4e796bd8
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sat Aug 18 16:29:20 2012 +0100

    Fix options methods

diff --git a/lib/Message/Passing/Role/CLIComponent.pm b/lib/Message/Passing/Role/CLIComponent.pm
index 1b8ad28..c249b56 100644
--- a/lib/Message/Passing/Role/CLIComponent.pm
+++ b/lib/Message/Passing/Role/CLIComponent.pm
@@ -19,9 +19,16 @@ sub make_variant {
     my $default = $has_default ? $arguments{default} : undef;
 
     option "$name" => (
+        isa => Str,
         is => 'ro',
 #       required => "$has_default" ? 0 : 1,
-        $has_default ? ( default => sub { "$default" } ) : (),
+        "$has_default" ? ( default => sub { "$default" } ) : (),
+        format => 's',
+    );
+
+    option "${name}_options" => (
+        is => 'ro',
+        default => sub { {} },
         isa => sub { ref($_[0]) eq 'HASH' },
         coerce => sub {
             my $str = shift;

-- 
libmessage-passing-perl Debian packaging



More information about the Pkg-perl-cvs-commits mailing list