Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- {
- package Test;
- use strict;
- use warnings;
- use Exporter qw( import );
- BEGIN {
- our $VERSION = 1.00;
- our @EXPORT_OK = qw(AR);
- }
- use constant AR => [1,2,3];
- BEGIN {
- $INC{"Test.pm"} = 1; # Tell Perl the module is already loaded.
- }
- }
- use 5.018;
- use warnings;
- use Test qw( AR );
- say AR->[1];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement