test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib './lib';
   6
   7 use Data::Dumper;
   8 use HTTP::Body;
   9 use IO::File;
  10 use YAML qw[LoadFile];
  11
  12 my $test = shift(@ARGV) || 1;
  13
  14 my $headers = LoadFile( sprintf( "t/data/multipart/%.3d-headers.yml", $test ) );
  15 my $content = IO::File->new( sprintf( "t/data/multipart/%.3d-content.dat", $test ), O_RDONLY );
  16 my $parser  = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
  17
  18 warn ref($parser);
  19
  20 binmode $content;
  21
  22 while ( $content->read( my $buffer, 1024 ) ) {
  23     last if $parser->add($buffer) == 0;
  24 }
  25
  26 warn "length   : $parser->{length}\n";
  27 warn "state    : $parser->{state}\n";
  28
  29 warn Dumper( $parser->param );
  30 warn Dumper( $parser->upload );