Any idea where my thinking or implementation is wrong?
That's simple. You have declared the variable as our in your module, but not in your script using that module. For something to be labelled as our, there must be at least two of them sharing it. So, saying
use lib 'F:/scripts/perl/'; use junk; use strict; use warnings; our $variable1; print("\$variable1 = $variable1\n");
will fix that issue.
Note that our variables are lexical aliases for a package variable. So, if the lexical scope spans several packages in the same file, all of those packages see that (unqualified) variable, which is a global to the package that declared it (I think of our as an autovivification of package globals):
Here $bar is visible from main just as $bar although it's typeglob lives in package Foo as $Foo::bar. Note that this behavior is different from what use vars does, so the vars pragma is not obsoleted by the introduction of our, contrary to what the docs state.use strict; package Foo; our $bar = "guggug!\n"; package main; print $bar; __END__ guggug!
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
In reply to Re: How to use "our()" variables correctly within a Perl module
by shmem
in thread How to use "our()" variables correctly within a Perl module
by memnoch
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |