Re: problem referencing global variable in self-written module

[crashtest]

Both replies so far explained how to use Exporter to export the $fleece variable into your main script. I thought I'd point out you don't have to do it that way: if you fix the code in the Fleece package as ikegami suggested (i.e., our $fleece = "..."), you can reference $fleece in your print statement by prefixing the package name:

print "Its fleece was $Fleece::fleece.\n";

No need for use Exporter, @EXPORT or @EXPORT_OK.

[yburge]

Well, crashtest, you're no dummy! I followed your suggestion, and it worked like a charm!! Thank you SO much!!!

[yburge]

Well, crashtest, I couldn't leave well enough alone. Since I also need to test the exchange of scalar variable values between a script and a module, I started with changing the variable name "$fleece" to "$color", and added a variable to the testuse script ($ANIMAL) to be used by the Fleece module in creating a new variable. A weird thing happened when I tried to test the use of $ANIMAL, and the renamed variable "$color". I got these messages:
Name "Fleece::color" used only once: possible typo at testuse.pl line 13.
Use of uninitialized value in concatenation (.) or string at testuse.pl line 13.

Here's the code from the script:

#!perl;

use warnings;
use strict;

use Fleece qw( $fleece );

my $BNAME  = 'Mary';
my $ANIMAL = 'lamb'; 

print "$BNAME had a little $ANIMAL, little $ANIMAL, little $ANIMAL,\n"
+;
print "$BNAME had a little $ANIMAL,\n";
print "Its fleece was $Fleece::color\n";

Here's the code from Fleece.pm:


package Fleece;

use strict;
use warnings;

our $color = "white as snow.\n";

1;

Do you have any idea what my coding error may be?