use strict;
use Carp qw[ ];
-use List::Util qw[ first ];
-our $VERSION = '0.2';
+our $VERSION = '0.03';
our $TYPES = {
'application/octet-stream' => 'HTTP::Body::OctetStream',
Carp::croak( $class, '->new( $content_type, $content_length )' );
}
- my $type = first { index( lc($content_type), $_ ) >= 0 } keys %{$TYPES};
+ my $type;
+ foreach my $supported ( keys %{$TYPES} ) {
+ if ( index( lc($content_type), $supported ) >= 0 ) {
+ $type = $supported;
+ }
+ }
+
my $body = $TYPES->{ $type || 'application/octet-stream' };
eval "require $body";
=item add
-Add string to itnernal buffer. Will call spin unless done. returns
+Add string to internal buffer. Will call spin unless done. returns
length before adding self.
=cut
=back
+=head1 BUGS
+
+Chunked requests are currently not supported.
+
=head1 AUTHOR
Christian Hansen, C<ch@ngmedia.com>