Two things: can you show us the code where you call this, and why are you calling an exported function as a method? In general, methods are not something you would export.

Also, try this:

perl -e 'use My::Module::Account qw(_GenerateAccountSummary); _Generat
+eAccountSummary();'
[download]

Thank you to perrin and to the Anonymous Monk, as well:

# perl -e 'use My::Module::Account qw(_GenerateAccountSummary); _Gener
+ateAccountSummary();'

Undefined subroutine &main::_GenerateAccountSummary called at -e line 
+1.

# perl -e 'use My::Module::Account qw(_GenerateAccountSummary); My::Mo
+dule::_GenerateAccountSummary();'

Undefined subroutine &My::Module::_GenerateAccountSummary called at -e
+ line 1.
[download]

As for the advice from the anonymous monk, I was ready to dismiss the idea that I had typos in my code because this aspect of the code was working fine before the Etch-Lenny dist-upgrade and before installing fastcgi. However . . .

DEBUG: What the symbol table says about My::Module:: --
             .  .  .
           'log' => *My::Module::log,
           'import' => *My::Module::import,
             .  .  .
[download]

Which is rather confusing because there is no ->import() method in either my base class, not in any of the custom modules it loads which I have written (at least if my grep pipe is to be believed). There is a ->new(), ->log(), ->_show_login_form(), ->_log_out() and a couple of others which are shown by Dumper(My::Module::).

Where might that ::import() be coming from if not from Exporter? And how is it I would figure that out?

So I rewrote my debug code like so:

{
  $ENV{PATH} = "/bin";
  foreach my $module (keys %INC){
    my $result = `grep '^sub import' $INC{$module}`;
    if ($result){
      print STDERR "The module: $module includes: \n$result \n";
    }
    if($module =~ m/Account/){
      print STDERR "The next module is: $module \n";
      print STDERR `grep _GenerateAccountSummary $INC{$module}`;
      print STDERR "\n\n";
    }
  }
}
[download]

yielding the following output:
Read more... (2 kB)
So perhaps a third or more of the modules in %INC sport an ->import() method. Are they stomping on each other? And if so, how would I make them stop that and play nice?

-- Hugh

if( $lal && $lol ) { $life++; }

# perl -e 'use My::Module::Account qw(_GenerateAccountSummary); _Gener
+ateAccountSummary();'
Undefined subroutine &main::_GenerateAccountSummary called at -e line 
+1.
[download]

Three possibilities:

1. &My::Module::Account::import doesn't exist and My::Module::Account doesn't inherit a method named import.

   Test:

   perl -wle'use My::Module::Account qw(_GenerateAccountSummary); print M
   +y::Module::Account->can("import") || "no"'
   [download]

2. The import does not create a sub named _GenerateAccountSummary in the caller's namespace in response to the call.

   Test:

   perl -wle'use My::Module::Account qw(_GenerateAccountSummary); print *
   +{$::{_GenerateAccountSummary}}{CODE} || "no"'
   [download]

3. _GenerateAccountSummary is successfully exported, but it has not been defined.

   Test:

   perl -wle'use My::Module::Account qw(_GenerateAccountSummary); print d
   +efined(&_GenerateAccountSummary) ? "yes" : "no"'
   [download]

The first to output "no" indicates the cause.

Well, then the problem is your actual code, typos and such (your import routine isn't Exporter's import, wrong @EXPORT vars, wrong @ISA, you're calling method on wrong object ... typos).