1package URI::http; 2 3require URI::_server; 4@ISA=qw(URI::_server); 5 6use strict; 7 8sub default_port { 80 } 9 10sub canonical 11{ 12 my $self = shift; 13 my $other = $self->SUPER::canonical; 14 15 my $slash_path = defined($other->authority) && 16 !length($other->path) && !defined($other->query); 17 18 if ($slash_path) { 19 $other = $other->clone if $other == $self; 20 $other->path("/"); 21 } 22 $other; 23} 24 251; 26