forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl

use strict;
use warnings;

use config;
use library;

print $asd;

test();

Код: Выделить всё

#!/usr/bin/perl

package library;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT      = qw(test);
our @EXPORT_OK   = qw(test);
our %EXPORT_TAGS = (
    a => [qw(test)],
    b => [qw(test)],
);

sub test {
  print "MyLib - Test Ok!\n";
}

1;

Код: Выделить всё

#!/usr/bin/perl

package config;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT = qw($asd);

my $asd = 555;

1;

Код: Выделить всё

./test.pl
Use of uninitialized value $asd in print at ./test.pl line 9.
MyLib - Test Ok!

Код: Выделить всё

-my $asd = 555;
+our $asd = 555;