return ( $caller eq 'Handler' ? $self->{_cgi} : $self->SUPER::->{_cgi} );

##</code><code>##

    return $self->{_cgi};

##</code><code>##

package HandlerMethods;

sub cgi {
  my $self = shift;

  ## first, get whatever the superclass would return
  my $cgi_obj = $self->SUPER::cgi;

  ## then we can slightly refine..
  $cgi_obj->param('HandlerMethods', 1);

  return $cgi_obj;
}