Re^2: eval "require $class" seems wrong

[rvosa]

in reply to Re: eval "require $class" seems wrong
in thread eval "require $class" seems wrong

Ah, the update works. I'd ++ that if I had votes left for today :)

[tye]

Then you are violating a different "best practice": Modules should always have a "::" in their name.

[rvosa]

Okay, well, so in the general case (including '::' in module names), the non-string-eval way to do it seems to be:

# turn $class name into $path
my $class = 'Some::Class';
my $path  =  $class;
$path     =~ s/::/\//g;
$path    .=  '.pm';

# check if $path already loaded
if ( not exists $INC{$path} ) {

    # do block eval on $path
    eval { require $path };
    die "Can't load $class: $@" if $@;
}

# if we make it here, we can use $class
my $obj = $class->new;

[tye]

The choices of code I posted over 2 hours ago are all shorter, don't make your one minor mistake, and don't waste code making duplicate checks of %INC nor repeating parts of the error message that will be in $@. But, yeah, that's the general idea. :)