in reply to Re^2: Can we do "use Win32:Service" on Unix ?"
in thread Can we do "use Win32:Service" on Unix ?"

No. perldoc -f require :

... In other words, if you try this: 
         require Foo::Bar;    # a splendid bareword

[download]

The require function will actually look for the "Foo/Bar.pm" file in the directories specified in the @INC array.

But if you try this: 

         $class = 'Foo::Bar';
         require $class;      # $class is not a bareword
     #or
         require "Foo::Bar";  # not a bareword because of the ""

[download]

The require function will look for the "Foo::Bar" file in the @INC array and will complain about not finding "Foo::Bar" there.

In this case you can do: 

         eval "require $class";

[download]

...

Personally, I've used UNIVERSAL::require, which allows me to do

  "Win32::Service"->require()

[download]

but I don't think that UNIVERSAL::require is really fit for production use.

Replies are listed 'Best First'.
Re^4: Can we do "use Win32:Service" on Unix ?"
by g0n (Priest) on Jan 27, 2005 at 15:19 UTC
    My mistake. I use this

    my @prereqs = (
        "DBI",
        "MIME::Base64");

foreach (@prereqs)
{
        if (!eval("require \($_\)"))
        {
                print "Missing prerequisite - $_\n";
                exit 0;
        }
}

    [download]

    Which of course doesn't have "" in the require.

    VGhpcyBtZXNzYWdlIGludGVudGlvbmFsbHkgcG9pbnRsZXNz
[reply]
[d/l]

      Believe it or not, but I benchmarked this ... and there is a slight advantage to not recompiling strings via eval. Depending on how hungry you are for CPU cycles... 

      foreach my $p (@prereqs)
{
  (my $x = $p) =~ s[::][/]g;
  $x .= '.pm';
  eval {
    require $x;
  }
  if ($@) {
    print "Missing prerequisite - $p\n";
    exit 0;
  }
}

      [download]

      A bit more code - but a bit faster, too. The tradeoff is up to you.

[reply]
[d/l]

In Section Seekers of Perl Wisdom