Initial pass at dispatch
This commit is contained in:
parent
ead0c0d0e9
commit
cb4189b7da
1 changed files with 3 additions and 0 deletions
|
|
@ -573,6 +573,9 @@ A URL.
|
||||||
|
|
||||||
sub dispatch {
|
sub dispatch {
|
||||||
my ($self, $fragment) = @_;
|
my ($self, $fragment) = @_;
|
||||||
|
if (! $fragment ) {
|
||||||
|
return $self->www_view;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue