1package HTTPTest; 2 3use strict; 4use warnings; 5 6use HTTPServer; 7use WgetTest; 8 9our @ISA = qw(WgetTest); 10my $VERSION = 0.01; 11 12 13{ 14 my %_attr_data = ( # DEFAULT 15 ); 16 17 sub _default_for 18 { 19 my ($self, $attr) = @_; 20 return $_attr_data{$attr} if exists $_attr_data{$attr}; 21 return $self->SUPER::_default_for($attr); 22 } 23 24 sub _standard_keys 25 { 26 my ($self) = @_; 27 ($self->SUPER::_standard_keys(), keys %_attr_data); 28 } 29} 30 31 32sub _setup_server { 33 my $self = shift; 34 $self->{_server} = HTTPServer->new (LocalAddr => 'localhost', 35 ReuseAddr => 1) 36 or die "Cannot create server!!!"; 37} 38 39 40sub _launch_server { 41 my $self = shift; 42 my $synch_func = shift; 43 44 $self->{_server}->run ($self->{_input}, $synch_func); 45} 46 47sub _substitute_port { 48 my $self = shift; 49 my $ret = shift; 50 $ret =~ s/{{port}}/$self->{_server}->sockport/eg; 51 return $ret; 52} 53 541; 55 56# vim: et ts=4 sw=4 57 58