t/common.perl

   1 require IO::File;
   2 use POSIX qw/dup/;
   3
   4 sub stream_to_string {
   5         my ($cb) = @_;
   6         my $headers;
   7         my $io = IO::File->new_tmpfile;
   8         my $dup = dup($io->fileno);
   9         my $response = sub { $headers = \@_, $io };
  10         $cb->($response);
  11         $io = IO::File->new;
  12         $io->fdopen($dup, 'r+');
  13         $io->seek(0, 0);
  14         $io->read(my $str, ($io->stat)[7]);
  15         $str;
  16 }