> The page() function would be a simple decision tree:
> sub page($$) {
> $self = shift;
> $new_page = shift;
> return $self->show_page_1() if $new_page eq 'page_1';
> return $self->show_page_2() if $new_page eq 'page_2';
> return $self->show_page_3() if $new_page eq 'page_3';
> # ...
> return $self->default_page();
> }
how about this little change?
sub page($$) {
$self = shift;
$new_page = shift;
$coderef = $self->can($new_page)||$self->can( 'default_page' );
return &$coderef( $self );
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
