sub new
{   #object blessing stuff skipped here...
    $self->_init(@_);
    return $self;
}
sub _init
{   my $self = shift;
    #the following creates the CGI object, importing the
    #method param() into current scope, _init()
    $self->{'query'} = new CGI qw(param);
#...etc...
}