my $headers = LoadFile( sprintf( "t/data/multipart/%.3d-headers.yml", $test ) );
my $content = IO::File->new( sprintf( "t/data/multipart/%.3d-content.dat", $test ), O_RDONLY );
-my $parser = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
-
-warn ref($parser);
+my $body = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
binmode $content;
while ( $content->read( my $buffer, 1024 ) ) {
- last if $parser->add($buffer) == 0;
+ $body->add($buffer);
}
-warn "length : $parser->{length}\n";
-warn "state : $parser->{state}\n";
+warn Dumper( $body->param );
+warn Dumper( $body->upload );
+warn Dumper( $body->body );
-warn Dumper( $parser->param );
-warn Dumper( $parser->upload );
+warn "length : " . $body->length;
+warn "content length : " . $body->content_length;
+warn "state : " . $body->{state};
+warn "buffer : " . $body->buffer;