Fleece won't compile, because you're using strict, but $fleece was never declared. Normally, you'd use my $fleece, but Exporter can only export package variables (and subs). That means you need to use our $fleece;.

Also, you should explicitely return a true value from your module. In this case, it happens to return true by coincidence, but I recommend you add 1; to the end of your module.

Finally, your script won't work either because you never told Exporter to export $fleece. Add our @EXPORT = qw( $fleece ); to Fleece if you want it exported by default, or add our @EXPORT_OK = qw( $fleece ); to export it on demand.

use warnings;
use strict;

use Fleece qw( $fleece );

my $BNAME = 'Mary';
print "$BNAME had a little lamb, little lamb, little lamb,\n";
print "$BNAME had a little lamb,\n";
print "It's fleece was $fleece.\n";
[download]

package Fleece;

use strict;
use warnings;

use Exporter;

our @EXPORT_OK = qw( $fleece );

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

1;
[download]

Okay, I updated both script and module as you suggested:

testuse.pl


   #!perl;

   use warnings;
   use strict;

   use Fleece qw( $fleece );

   my $BNAME = 'Mary';
   print "$BNAME had a little lamb, little lamb, little lamb,\n";
   print "$BNAME had a little lamb,\n";
   print "It's fleece was $fleece.\n";
[download]


Fleece.pm


   package Fleece;

   use warnings;

   use Exporter;

   our @EXPORT_OK = qw( $fleece );

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

   1;
[download]

I got this error when I tried to execute the script:


Global symbol "$fleece" requires explicit package name at testuse.pl l
+ine 11.
Execution of testuse.pl aborted due to compilation errors.
[download]

our @ISA = 'Exporter'; is missing in the module. I forgot about that in my initial post.

package Fleece;

use strict;
use warnings;

use Exporter;

our @ISA = 'Exporter';
our @EXPORT_OK = qw( $fleece );

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

1;
[download]

Tested.

BTW, I edited the code I posted so it would be more readable (I missed the part in Writeup Formatting Tips about using the break parm). Hope that helps, and thanks for your patience.

Use
<c>...</c>
or
<code>...</code>

<c>...<c>
and
<code>...<code>
don't work.

use Exporter;
[download]

@EXPORT = qw( $fleece );
[download]

@EXPORT_OK = qw( $fleece );
[download]

use Fleece qw( $fleece );
[download]

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";
[download]

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

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";
[download]

Here's the code from Fleece.pm:


package Fleece;

use strict;
use warnings;

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

1;
[download]

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