[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit 24a42fbdf2d75205125be0b2391e172d68e8abcf
Merge: 2cfe62ba4be2a44e0062e36e83e1b6e963f7c5e5 d53d5767bb9a73a73c44f87b5011ba7b13f16484
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Thu Aug 23 21:42:16 2012 +0100

    Merge remote-tracking branch 'origin/master'
    
    * origin/master:
      cleaned up double 1;

diff --combined lib/Message/Passing.pm
index 14048a5,a29ba4e..969d610
--- a/lib/Message/Passing.pm
+++ b/lib/Message/Passing.pm
@@@ -8,7 -8,7 +8,7 @@@ use MooX::Options flavour => [qw( pass_
  use namespace::clean -except => [qw/ meta new_with_options parse_options _options_data _options_config/];
  use 5.8.4;
  
 -our $VERSION = '0.100';
 +our $VERSION = '0.101';
  $VERSION = eval $VERSION;
  
  sub new_with_options {
@@@ -304,7 -304,4 +304,4 @@@ If you feel this is too restrictive to 
  please talk to us as we'd be willing to consider re-licensing under
  less restrictive terms.
  
 -=cut
 +=cut
- 
- 1;
- 
diff --combined lib/Message/Passing/Role/Script.pm
index 4eb0e1f,aeadbd3..12631dd
--- a/lib/Message/Passing/Role/Script.pm
+++ b/lib/Message/Passing/Role/Script.pm
@@@ -1,6 -1,5 +1,6 @@@
  package Message::Passing::Role::Script;
  use Moo::Role;
 +use MooX::Options;
  use MooX::Types::MooseLike::Base qw/ Bool Str /;
  use Getopt::Long qw(:config pass_through);
  use POSIX qw(setuid setgid);
@@@ -9,26 -8,24 +9,26 @@@ use namespace::clean -except => 'meta'
  
  requires 'build_chain';
  
 -has daemonize => (
 +option daemonize => (
      is => 'ro',
      isa => Bool,
      default => sub { 0 },
  );
  
 -has io_priority => (
 +option io_priority => (
      isa => sub { $_[0] =~ /^(none|be|rt|idle)$/ },
      coerce => sub { lc $_[0] },
      is => 'ro',
      predicate => "_has_io_priority",
 +    format => 's',
  );
  
  foreach my $name (qw/ user pid_file /) {
 -    has $name => (
 +    option $name => (
          isa => Str,
          is => 'ro',
          predicate => "_has_$name",
 +        format => 's',
      );
  }
  
@@@ -216,7 -213,4 +216,4 @@@ the SureVoIP API 
  
  See L<Message::Passing>.
  
 -=cut
 +=cut
- 
- 1;
- 

-- 
libmessage-passing-perl Debian packaging