Perl module cross reference problem

[lcs01]

One of my company's mod_perl page randomly produces an error:

Undefined subroutine &Design::getStyle called at {$root}/subdir/XYZ.pm line 3412.

where Design.pm is in {$root} dir:

#  FILE:       Design.pm
require 5.004;
use subdir::XYZ qw/-autoload :standard/;

sub getStyle
{
# some implementations here
}

The way that xyz.pm calling getStyle() is implemented as follows:

#  FILE:       XYZ.pm
package subdir::XYZ.pm;

sub function1
{
# some implementations here
[b]my $style = Design::getStyle; # this is line 3412[/b]
# some implementations here
}

So, apparently, this is a module cross reference. Is this wrong? If so, how to fix it?

 

[Kirsle]

Did you forget to package Design?

 

[lcs01]

No, I did not forget that.

Actually, this is not my code. But I did make sure that there is 'package Design;' is the first line of Design.pm.