有没有使用长命名空间更容易的Perl模块或技术？

发布时间：2020-12-15 21:27:09 所属栏目：大数据来源：网络整理

导读：一些命名空间长而烦人.假设我下载了一个名为FooFoo-BarBar-BazBaz.tar.gz的假设包,它包含以下模块： FooFoo::BarBar::BazBaz::BillFooFoo::BarBar::BazBaz::BobFooFoo::BarBar::BazBaz::BenFooFoo::BarBar::BazBaz::BozoFooFoo::BarBar::BazBaz::BrownFooFoo

一些命名空间长而烦人.假设我下载了一个名为FooFoo-BarBar-BazBaz.tar.gz的假设包,它包含以下模块：

FooFoo::BarBar::BazBaz::Bill
FooFoo::BarBar::BazBaz::Bob
FooFoo::BarBar::BazBaz::Ben
FooFoo::BarBar::BazBaz::Bozo
FooFoo::BarBar::BazBaz::Brown
FooFoo::BarBar::BazBaz::Berkly
FooFoo::BarBar::BazBaz::Berkly::First
FooFoo::BarBar::BazBaz::Berkly::Second

有没有一个可以使用的模块或技术,类似于C’using’语句,就是有办法可以做

using FooFoo::BarBar::BazBaz;

那会让我做的

my $obj = Brown->new();

ok $obj->isa('FooFoo::BarBar::BazBaz::Brown') ;  # true
# or...
ok $obj->isa('Brown'); # also true

解决方法

aliased pragma这样做：

use aliased 'FooFoo::BarBar::BazBaz::Bill';

my $bill = Bill->new;

别名是语法糖

use constant Bill => 'FooFoo::BarBar::BazBaz::Bill';
# or 
sub Bill () {'FooFoo::BarBar::BazBaz::Bill'}

这样做的缺点是,包名称作为参数的正常使用是用引用的字符串来完成的：

$obj->isa('FooFoo::BarBar::BazBaz::Bill')

但是,常量子程序需要一个光明的词语：

$obj->isa(Bill);

这似乎就像一个等待发生的bug.

或者,您可以使用Perl的内置命名空间别名支持：

package Foo::Bar::Baz::Bill;

sub new {bless {}}

package Foo::Bar::Baz::Tom;

sub new {bless {}}

package main;

BEGIN {*FBB:: = *Foo::Bar::Baz::}  # the magic happens here

say FBB::Bill->new;  # Foo::Bar::Baz::Bill=HASH(0x80fd10)

say FBB::Tom->new;   # Foo::Bar::Baz::Tom=HASH(0xfd1080)

关于 – > isa(‘shortname’)的要求,别名的隐藏方法与往常引用的字符串一样工作：

my $obj = FBB::Bill->new;

say $obj->isa('FBB::Bill');           # prints 1
say $obj->isa('Foo::Bar::Baz::Bill'); # prints 1

编译时别名BEGIN {* short :: = * long :: package :: name ::}的效果在所有包和范围之间都是全局的.只要你选择一个空的包来进入别名就行了.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!