[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 29cdba5bd52d76c24f3f8443910243a063369368
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Fri Jun 8 01:30:21 2012 +0100

    Changelog

diff --git a/Changes b/Changes
index aae8cb1..60b15b9 100644
--- a/Changes
+++ b/Changes
@@ -1,8 +1,8 @@
-0.006
   - Rip JSON encoders and decoders out of inputs and
     outputs, making them optional and/or replaceable.
     *NOTE* Current Input / Output code will need updating
     for this change!!
+  - Allow Null encoders or decoders.
 
 0.005
    - Get connection timeouts and connection reconnects
diff --git a/lib/Message/Passing.pm b/lib/Message/Passing.pm
index 6c5b43b..494180f 100644
--- a/lib/Message/Passing.pm
+++ b/lib/Message/Passing.pm
@@ -15,7 +15,7 @@ with
     'Message::Passing::Role::CLIComponent' => { name => 'encoder', default => 'JSON' },
     'Message::Passing::Role::Script';
 
-our $VERSION = '0.006';
+our $VERSION = '0.005';
 $VERSION = eval $VERSION;
 
 sub build_chain {
diff --git a/lib/Message/Passing/Filter/Decoder/JSON.pm b/lib/Message/Passing/Filter/Decoder/Null.pm
similarity index 71%
copy from lib/Message/Passing/Filter/Decoder/JSON.pm
copy to lib/Message/Passing/Filter/Decoder/Null.pm
index 4596735..57ab068 100644
--- a/lib/Message/Passing/Filter/Decoder/JSON.pm
+++ b/lib/Message/Passing/Filter/Decoder/Null.pm
@@ -1,22 +1,21 @@
-package Message::Passing::Filter::Decoder::JSON;
+package Message::Passing::Filter::Decoder::Null;
 use Moose;
-use JSON qw/ from_json /;
 use namespace::autoclean;
 
 with 'Message::Passing::Role::Filter';
 
-sub filter { from_json( $_[1], { utf8  => 1 } ) }
+sub filter { $_[1] }
 
 __PACKAGE__->meta->make_immutable;
 1;
 
 =head1 NAME
 
-Message::Passing::Role::Filter::Decoder::JSON
+Message::Passing::Filter::Deccoder::Null
 
 =head1 DESCRIPTION
 
-Decodes string messages from JSON into data structures.
+Does no Decoding
 
 =head1 ATTRIBUTES
 
@@ -24,7 +23,7 @@ Decodes string messages from JSON into data structures.
 
 =head2 filter
 
-JSON decodes a message supplied as a parameter.
+Returns message it's passed, verbatim
 
 =head1 SEE ALSO
 
diff --git a/lib/Message/Passing/Filter/Decoder/JSON.pm b/lib/Message/Passing/Filter/Encoder/Null.pm
similarity index 71%
copy from lib/Message/Passing/Filter/Decoder/JSON.pm
copy to lib/Message/Passing/Filter/Encoder/Null.pm
index 4596735..e4f5708 100644
--- a/lib/Message/Passing/Filter/Decoder/JSON.pm
+++ b/lib/Message/Passing/Filter/Encoder/Null.pm
@@ -1,22 +1,21 @@
-package Message::Passing::Filter::Decoder::JSON;
+package Message::Passing::Filter::Encoder::Null;
 use Moose;
-use JSON qw/ from_json /;
 use namespace::autoclean;
 
 with 'Message::Passing::Role::Filter';
 
-sub filter { from_json( $_[1], { utf8  => 1 } ) }
+sub filter { $_[1] }
 
 __PACKAGE__->meta->make_immutable;
 1;
 
 =head1 NAME
 
-Message::Passing::Role::Filter::Decoder::JSON
+Message::Passing::Filter::Enccoder::Null
 
 =head1 DESCRIPTION
 
-Decodes string messages from JSON into data structures.
+Does no Encoding
 
 =head1 ATTRIBUTES
 
@@ -24,7 +23,7 @@ Decodes string messages from JSON into data structures.
 
 =head2 filter
 
-JSON decodes a message supplied as a parameter.
+Returns message it's passed, verbatim
 
 =head1 SEE ALSO
 
diff --git a/t/00_compile.t b/t/00_compile.t
index a4cf1ce..c4662fe 100644
--- a/t/00_compile.t
+++ b/t/00_compile.t
@@ -17,6 +17,10 @@ use_ok('Message::Passing::Output::File');
 use_ok('Message::Passing::Filter::Null');
 use_ok('Message::Passing::Filter::All');
 use_ok('Message::Passing::Filter::Delay');
+use_ok('Message::Passing::Filter::Encoder::JSON');
+use_ok('Message::Passing::Filter::Encoder::Null');
+use_ok('Message::Passing::Filter::Decoder::JSON');
+use_ok('Message::Passing::Filter::Decoder::Null');
 
 done_testing;
 

-- 
libmessage-passing-perl Debian packaging