Re^2: use, require, import and use arguments

I was not clear why foo died. Consider:

package Mod;


sub foo {
   my ($pkg, %options) = @_;
   my $dir = $options{arg} || "/default";

   die "$dir not found" unless -d $dir;
   print "$dir found";
}

# this is to make foo run when module is require'd
{
   foo();
}

sub  import {
  my ($pkg, %options) = @_;
  __PACKAGE__->foo(arg => $options{-arg});
}
[download]

This:

 perl -e "use Mod -arg => '$HOME';"
[download]

Dies - I don't want this. I want foo to run with both "require" and "foo" and properly run without dying when the use" pragma gives it an argument.

Comment on Re^2: use, require, import and use arguments Select or Download Code

Replies are listed 'Best First'.
Re^3: use, require, import and use arguments by Anonymous Monk on Feb 26, 2011 at 14:06 UTC
Because '$HOME' is not a directory that exists? In perl , there is no variable $HOME, and single quotes do not inerpolate I have no idea if your shell would interpolate $HOME into that commandline	[reply]
Re^4: use, require, import and use arguments by djihed (Novice) on Feb 26, 2011 at 15:16 UTC
It does - it's just an example. If it doesn't suppose that $HOME is replaced by some real existing directory. The reason it dies is because foo is called first in the block above import.	[reply]
Re^5: use, require, import and use arguments by Anonymous Monk on Feb 26, 2011 at 15:28 UTC
The reason it dies is because foo is called first in the block above import. Soo, um, don't do that then? :) `eval { foo(); }; # I die, don't call me without a full path to real di +rectory return 1;` [download]	[reply] [d/l]