Cleanup

Changes

@@ -1,6 +1,9 @@
 Revision history for perl module PocketIO
 
-0.13 2012-01-28
+0.14 2012-02-23
+
+ - Fixed exception handling bugs (Jason May)
+ - Provide the status code when throwing a websocket exception (Jason May)
 
 0.12 2012-01-25
 

Makefile.PL

@@ -18,7 +18,7 @@ requires 'Scalar::Util' => '0';
 
 requires 'AnyEvent'            => '0';
 requires 'JSON'                => '0';
-requires 'Protocol::SocketIO'  => '0';
+requires 'Protocol::SocketIO'  => '0.04';
 requires 'Protocol::WebSocket' => '0.009006';
 
 requires 'Test::More' => '0';

lib/PocketIO.pm

@@ -3,7 +3,7 @@ package PocketIO;
 use strict;
 use warnings;
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 use overload '&{}' => sub { shift->to_app(@_) }, fallback => 1;
 
@@ -335,6 +335,8 @@ Uwe Voelker
 
 Oskari Okko Ojala
 
+Jason May
+
 =head1 AUTHOR
 
 Viacheslav Tykhanovskyi, C<vti@cpan.org>.

t/conn/parsing.t

@@ -3,7 +3,7 @@ use warnings;
 use utf8;
 use Encode;
 
-use Test::More tests => 10;
+use Test::More tests => 6;
 
 use_ok('PocketIO::Connection');
 
@@ -24,12 +24,3 @@ is_deeply $output => {foo => 'bar'};
 
 $conn->parse_message('4:1::{"foo":"' . encode_utf8('привет') . '"}');
 is_deeply $output => {foo => 'привет'};
-
-# FIXME private methods testing? are you nuts?!!!
-is $conn->_build_message('foo') => '3:::foo';
-is $conn->_build_message({foo => 'bar'}) => '4:::{"foo":"bar"}';
-
-is $conn->_build_message('привет') => '3:::'
-  . encode_utf8('привет');
-is $conn->_build_message({foo => 'привет'}) => '4:::{"foo":"'
-  . encode_utf8('привет') . '"}';