perl - 如何使哈希在另一个模块中可用

Question

for Ex : 
package test1 ; 

my %hash = ( a=> 10 , b => 30 ) ;

1;

in Script : 

use test1 ;

print %hash ;  # How to  make this avilable in script without sub

Answer 1

良好的编程习惯规定您不允许外来代码直接与模块的数据混淆，而是必须通过中介，例如访问器例程。

TIMTOWTDI，有和没有导出。 Moose 的例子看起来很长，但是这个例子也允许设置数据而不是仅仅从 Test1 读取数据。 ，而其他三个示例需要相当多的额外代码来处理这种情况。

不加糖的

模块

package Test1;
{
    my %hash = (a => 10, b => 30);
    sub member_data { return %hash; }
}
1;

程序

use Test1 qw();
Test1::member_data; # returns (a => 10, b => 30)

驼鹿

模块

package Test1;
use Moose;
has 'member_data' => (is => 'rw', isa => 'HashRef', default => sub { return {a => 10, b => 30}; });
1;

程序

use Test1 qw();
Test1->new->member_data; # returns {a => 10, b => 30}
# can also set/write data!  ->member_data(\%something_new)

子::导出商

模块

package Test1;
use Sub::Exporter -setup => { exports => [ qw(member_data) ] };

{
    my %hash = (a => 10, b => 30);
    sub member_data { return %hash; }
}
1;

程序

use Test1 qw(member_data);
member_data; # returns (a => 10, b => 30)

导出商

模块

package Test1;
use parent 'Exporter';

our @EXPORT_OK = qw(member_data);

{
    my %hash = (a => 10, b => 30);
    sub member_data { return %hash; }
}
1;

程序

use Test1 qw(member_data);
member_data; # returns (a => 10, b => 30)