sub do_stuff
{
    my $this = shift;
      my $session = shift 
           || die "Missing req'd Session argument";
      my $cgi  = shift || new CGI ();
       ...
}
[download]

As said, I think that's horrible.

sub do_stuff {
    my ($self, $session, $cgi) = @_;
    croak 'Session not optional' unless $session;
    $cgi ||= CGI->new();

    ...
}
[download]

esthetics aside, here are some hard figures on efficiency (slightly reformatted)

I am starting to think that you didn't read my post, and are only commenting on the piece of code. Efficiency is important, but not more important than readability and maintainability. Whenever efficiency is important, you probably should not be using OO.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.