Advertisement
Guest User

Untitled

a guest
Mar 11th, 2019
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.39 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. {
  4.     package Test;
  5.  
  6.     use strict;
  7.     use warnings;
  8.  
  9.     use Exporter qw( import );
  10.  
  11.     BEGIN {
  12.         our $VERSION = 1.00;
  13.         our @EXPORT_OK = qw(AR);
  14.     }
  15.  
  16.     use constant AR => [1,2,3];
  17.  
  18.     BEGIN {
  19.         $INC{"Test.pm"} = 1;  # Tell Perl the module is already loaded.
  20.     }
  21. }
  22.  
  23. use 5.018;
  24. use warnings;
  25.  
  26. use Test qw( AR );
  27.  
  28. say AR->[1];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement