| June 2001 | Making a Module |
sub serverroot
{ my($self) = shift; return $self->{'serverroot'} || undef; }
sub servername
{ my($self) = shift; return $self->{'servername'} || undef; }
|
sub hit
{ my($self) = shift; return %{($self->{'hit'} || undef)}; }
sub host
{ my($self) = shift; return %{($self->{'host'} || undef)}; }
|
|
| Copyright © 2001 R. Geoffrey Avery |