UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Loading a package from another package

package A
   ...
   use B;
   ...
   print $B::var;  <<< error
   ...

package B;
use strict;
my $nope = 0;
our $maybe = 1;
use vars qw($probably);
$probably = 1;

package A;
use strict;
print $B::probably;
print $B::maybe;
print $B::nope;

package MyDefs;

use strict;
use warnings;
use re 'taint'; # suppress untainting by regexes

# paths
our $home_dir          = 'c:';                         
our $dest_base_dir     = "$home_dir/backup";          
our $lock_filename     = $dest_base_dir/backup_lock";
our $list_filename     = 'backup.lst';                 

use MyDefs();
open(my $fh_lock, '>', $MyDefs::lock_filename) or die "open: $!";

package fsConfig;

use strict;
use re 'taint';

# constants
use constant MAX_ID             => 999_999;   # warning - don't change this
use constant FTP_TIMEOUT        => 15;        # seconds
use constant MAX_SEARCH_RESULTS => 100;       # max number of items returned by search

# class constructor
sub load {
   my $invocant = shift;

   my $self = {
      ...
      'submissions_mode' => 'restricted',
      ...
   };

   my $class = ref($invocant) || $invocant;
   return bless($self, $class);
}

# accessor methods

...

sub submissions_mode {
   my $self = shift;
   return $self->{'submissions_mode'};
}

...

1;

#!/usr/bin/perl -wT

use strict;
use re 'taint'; # suppress untainting by regexes

use fsConfig();

# instantiate configuration object and store it in a global variable
$::Config  = fsConfig::->load() or die 'Failed to load configuration data';

# suppress warning 'name used only once' (?)
our $Config;

...

# example of accessing configuration constant:
print "The FTP-timeout parameter is " . $Config->FTP_TIMEOUT . "n";

# example of accessing configuration variable:
print "The submissions-mode is " . $Config->submissions_mode() . "n";

...

our $Config = $::Config;

#!/usr/bin/perl -w
use strict;
use CGI ();
$::Config = CGI->new;
our $Config;

require "req.pl";
require Req;

package Test;

printf "Test: %s-%sn", ref($Config),ref($::Config);

printf "req: %s-%sn", ref($Config),ref($::Config);

1;

package Req;
printf "Req: %s-%sn", ref($Config),ref($::Config);

1;

$::Config = CGI->new;
our $Config;

our $Config = CGI->new;

package MyDefs;

...
use constant DEST_BASE_DIR   => 'c:/backup';                     
use constant LOCK_FILENAME   => "@{[DEST_BASE_DIR]}/backup_lock";
use constant LIST_FILENAME   => 'backup.lst';                    
use constant CMD_FILENAME    => 'backup.cmd';                    
... 

1;

...
use MyDefs();
...
open(my $fh_lock, '>', MyDefs::LOCK_FILENAME);
...
my $cmd = "$dest_dir/@{[MyDefs::CMD_FILENAME]}";
...