Re: Dynamic Class Loading, Compilation, & Speed

Try this:

#!/usr/bin/perl -w

use strict;
use warnings 'all';

# ...later...

load_class("Some::Class");

sub load_class {
  my ($class) = @_;
  
  (my $file = "$class.pm") =~ s/::/\//g;
  unless( $INC{$file} ) {
    require $file;
    $class->import;
  }# end unless();
}# end load_class()
[download]

Just as use <ClassName> operates in compile-time, require operates in runtime without a string eval.

To finish the job, call import on the newly-loaded package and you're done.

Comment on Re: Dynamic Class Loading, Compilation, & Speed Select or Download Code

Replies are listed 'Best First'.
Re^2: Dynamic Class Loading, Compilation, & Speed by shmem (Chancellor) on Mar 07, 2010 at 19:40 UTC
Nitpick... to handle the equivalent of `use Module qw(foo => 'bar');` - `# ...later... load_class("Some::Class", @load_args); sub load_class { my $class = shift; (my $file = "$class.pm") =~ s\|::\|/\|g; unless( $INC{$file} ) { require $file; }# end unless(); $class->import(@_); }# end load_class()` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Dynamic Class Loading, Compilation, & Speed
by shmem (Chancellor) on Mar 07, 2010 at 19:40 UTC

Nitpick... to handle the equivalent of use Module qw(foo => 'bar'); -


# ...later...

load_class("Some::Class", @load_args);

sub load_class {
  my $class = shift;
  
  (my $file = "$class.pm") =~ s|::|/|g;
  unless( $INC{$file} ) {
    require $file;
  }# end unless();
  $class->import(@_);
}# end load_class()
[download]

[reply]
[d/l]
[select]