- or download this
#!/usr/bin/perl
use strict;
...
say "DEBUG: Got variables set '$_' from file: $VARSETS{$_}"
for (sort keys %VARSETS);
- or download this
package myvars; # still not a cromulent package name
...
}
1;
- or download this
our $env_db_pass = 'devpass';
- or download this
our $env_db_pass = 'prodpass';
- or download this
DEBUG: reading /home/fbrm/CODE/PERL/monks/11158449/MYLIB/database-et.p
+m
DEBUG: skip /home/fbrm/CODE/PERL/monks/11158449/MYLIB/database-pr.pm
myvars.pm: CREDENTIALS(devpass)
PASS=devpass
DEBUG: Got variables set 'database' from file: database-et.pm
- or download this
reading /home/fbrm/CODE/PERL/monks/11158449/MYLIB/database-et.pm
reading /home/fbrm/CODE/PERL/monks/11158449/MYLIB/database-pr.pm
...
myvars.pm: CREDENTIALS(devpass)
PASS=devpass