Re: eval "require $class" seems wrong

[jZed]

eval { require $class }; :-)

update:

eval { require "$class.pm" }; :-)

[rvosa]

That's not the same thing! Compare:

perl -Mstrict -e 'my $c="CGI";eval "require $c";die $@ if $@'
perl -Mstrict -e 'my $c="CGI";eval {require $c};die $@ if $@'

[rvosa]

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;