Referencing modules nested in a directory structure

[David Smith]

Pardon the rookie question, but I haven't been able to find an answer
in either the Camel book or a web search.

I'm coming to Perl from a Java background... where you import classes
using a fully-qualified name, and then generally make use of it using
the base class name:


import myapp.dataojects.User;
....
User myUser = new User();


I've been emulating the same convention as far as organizing my Perl
modules in a directory structure based on functionality. However, I
find that when using them I have to always use the fully-qualified name:


use MyApp:ataObjects::User;
....
my $myUser = MyApp:ataObjects::User->new();


Is there any syntax by which I could access Perl objects by using the
object name alone, rather than the fully-qualified name? Such as this:


use MyApp:ataObjects::User;
....
my $myUser = User->new();

 

[Ben Morrow]

Pardon the rookie question, but I haven't been able to find an answer
in either the Camel book or a web search.

I'm coming to Perl from a Java background... where you import classes
using a fully-qualified name, and then generally make use of it using
the base class name:

import myapp.dataojects.User;
...
User myUser = new User();

I've been emulating the same convention as far as organizing my Perl
modules in a directory structure based on functionality. However, I
find that when using them I have to always use the fully-qualified name:

use MyApp:ataObjects::User;
...
my $myUser = MyApp:ataObjects::User->new();
Yup.

Is there any syntax by which I could access Perl objects by using the
object name alone, rather than the fully-qualified name? Such as this:

use MyApp:ataObjects::User;
...
my $myUser = User->new();

Nope, sorry . This is one of the flaws in Perl's package system, IMHO.
One thing that may allieviate the pain is that a package (class) name is
simply a string in Perl, so you can use a variable:

use MyApp:ataObjects::User;

my $USER = 'MyApp:ataObjects::User';

my $myUser = $USER->new;

If you were feeling evil you could even export this variable from
MA:O::U by default.

Ben

 

[Andreas Pürzer]

Nope, sorry . This is one of the flaws in Perl's package system, IMHO.
One thing that may allieviate the pain is that a package (class) name is
simply a string in Perl, so you can use a variable:

use MyApp:ataObjects::User;

my $USER = 'MyApp:ataObjects::User';

my $myUser = $USER->new;

If you were feeling evil you could even export this variable from
MA:O::U by default.

Yet Another Approach (for OO-Modules at least):

use aliased 'MyApp:ataObjects::User';
my $myUser = User->new();

http://search.cpan.org/~ovid/aliased-0.21/lib/aliased.pm

Andreas Puerzer