package Foo::Bar;
use strict;
use Exporter;
use vars qw( @ISA @EXPORT_OK );
@ISA = qw(Exporter);
@EXPORT_OK = qw(&doSomething);
sub new {
blah blah blah...
}
sub dosomething {
blah blah blah
}
####
package Foo::Bar::Blah;
use strict;
use Foo::Bar qw(doSomething);
use vars qw( @ISA );
@ISA = qw(Foo::Bar);
####
use strict;
use Foo::Bar::Blah;
Foo::Bar::Blah::doSomething('xyz');
####
Use of inherited AUTOLOAD for non-method Foo::Bar::Blah::doSomething() is deprecated at ./tests/testFooBarBlah.pl ...
Can't locate auto/Foo/Bar/Blah/doSomething.al in @INC ...
####
Foo::Bar::doSomething('xyz');