Re: Conditional loading of module with global exports

[choroba]

Declaring the variable with our seems to work for me. Check below where the variables are declared.

I created the following module:

package MyVar;
use warnings;
use strict;

use Exporter qw{ import };

our @ARR1 = qw( a b c );
our @ARR2 = qw( D E F );

our @EXPORT    = qw( @ARR1 );
our @EXPORT_OK = qw( @ARR2 );

__PACKAGE__

And this is the code that uses it. Argument processing is in a BEGIN block to happen at compile time, so that @list is populated when if is called:

#!/usr/bin/perl
use warnings;
use strict;

our @ARR1;

use Getopt::Long;

my @list;
BEGIN {
    GetOptions('arrays|a=s' => \ my $arrays);
    my $list = { one  => ['@ARR1'],
                 two  => ['@ARR2'],
                 both => [qw[ @ARR1 @ARR2 ]],
               }->{$arrays};
    @list = @{ $list || [] };
}

use if scalar @list => ('MyVar', @list);

our @ARR2;

print @ARR1, ' ', @ARR2, "\n";

Try running it as

example.pl -a no
example.pl -a one
example.pl -a two
example.pl -arrays=both

[learnedbyerror]

Monk choroba, thank you for your example. While Tanktalus' post got me thinking, you example made me realize that I had screwed something up for sure. It was only after reading your post that I went back to scratch and created a new test case very similar to yours that worked. Thank You very much! - lbe