view release on metacpan or  search on metacpan

t/handlers/dev/headers.pm  view on Meta::CPAN

package dev::headers;

use strict;
use warnings 'all';
use base 'ASP4::FormHandler';
use vars __PACKAGE__->VARS;

sub run
{
  my ($s, $context) = @_;
  
  $Response->ContentType("text/x-test");
  $Response->Expires( 500 );
  $Response->AddHeader("content-length" => 3000);
  $Response->Write( "X"x3000 );
  $Response->Flush;
}# end run()

1;# return true: