Re^6: Global variables in Perl

OK, here you go. A few adjustments: ConfigThisJunk.pm is actually ExportScalar.pm and the script name is ImportTest.pl. The package is in the folder 'D:/Marcos/Perl/MSB/SS' in my Windows machine. Hence, your line got modified to:

perl -wle"use lib 'D:/Marcos/Perl/MSB'; use SS::ExportScalar; print $INC{'SS/ExportScalar.pm'};"

and that resulted in

D:/Marcos/Perl/MSB/SS/ExportScalar.pm

And then the results of the type statements:

type ExportScalar.pm
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

our $DEBUG = 1;

sub DEBUG {
   if (@_) { $DEBUG = shift; }
   return $DEBUG;
}
1;
[download]

type ImportTest.pl
#!/usr/bin/perl -w
use strict;
use warnings;
use lib 'D:/Marcos/Perl/MSB';
use SS::ExportScalar qw( DEBUG );
my $x = 123;
print("debug: x is $x\n") if DEBUG;
[download]

Now I execute it:

perl ImportTest.pl
Bareword "DEBUG" not allowed while "strict subs" in use at ImportTest.
+pl line 7.
Execution of ImportTest.pl aborted due to compilation errors.
[download]

Now, I change the strict statement in ImportTest.pl:

type ImportTest.pl
#!/usr/bin/perl -w
use strict qw (vars refs);
use warnings;
use lib 'D:/Marcos/Perl/MSB';
use SS::ExportScalar qw( DEBUG );
my $x = 123;
print("debug: x is $x\n") if DEBUG;
[download]

perl ImportTest.pl
Bareword found in conditional at ImportTest.pl line 7.
debug: x is 123
[download]

X:^P

Comment on Re^6: Global variables in Perl Select or Download Code

Replies are listed 'Best First'.
Re^7: Global variables in Perl by ikegami (Patriarch) on Jun 04, 2010 at 21:51 UTC
You're missing `package SS::ExportScalar;`, so the script never imports `DEBUG`, so `DEBUG` is not declared in the script, so it's a bareword, so strict throws an exception.	[reply] [d/l] [select]
Re^8: Global variables in Perl by taioba (Acolyte) on Jun 04, 2010 at 22:08 UTC
Sorry, must have got garbled in the transfer to the website. See the whole thing below. Note that if this was the case, the script would not have run the second time after changing strict and execution would be aborted at compilation because Perl wouldn't find ExportScalar. `type ExportScalar.pm package ExportScalar; use strict; use warnings; use Exporter; our @ISA = qw( Exporter ); our @EXPORT_OK = qw( DEBUG ); our $DEBUG = 1; sub DEBUG { if (@_) { $DEBUG = shift; } return $DEBUG; } 1;` [download]	[reply] [d/l]
Re^9: Global variables in Perl by taioba (Acolyte) on Jun 04, 2010 at 22:25 UTC
Ooooooops, my bad! It has to be 'package SS::ExportScalar' instead of just 'package ExportScalar'! Thank you so much! My NPR donation will be diverted to the Perl Monks! ;o)	[reply]