Perl：长包名会影响解析性能吗？

Question

假设我定义了两个包（都是perl类和对象）

package FooRecord;

和

package FooBarHelloWorldRecord;

.当上述类的实例访问它们的方法时，会有性能差异吗？我认为“长包名”会导致性能差异，因为perl在方法解析期间会对名称进行字符串比较。

my $fooRecord = new FooRecord();  
$fooRecord->getFooData();

my $fooWorldRecord = new FooBarHelloWorldRecord();  
$fooWorldRecord->getWorldData();

由于在上述方法调用中会有名称解析，第一个（由于名称较短）将比第二个包名方法调用表现出更好的性能。

推测：perl不保留包名的哈希值，并且（在内部）与它们进行比较吗？

Answer 1

是的，这确实会带来不同：

use v5.14;
use warnings;
use Benchmark 'cmpthese';

package Foo {
   use Class::Tiny;
}

package FooButMuchMuchMuchMuchMuchMuchMuchMuchMuchMuchLonger {
   use Class::Tiny;
}

package FooBut::So::So::So::So::So::So::So::So::Much::Deeper {
   use Class::Tiny;
}

cmpthese -1, {
  'short' => q{ Foo->new },
  'long'  => q{ FooButMuchMuchMuchMuchMuchMuchMuchMuchMuchMuchLonger->new },
  'deep'  => q{ FooBut::So::So::So::So::So::So::So::So::Much::Deeper->new },
}

__END__
         Rate  deep  long short
deep  45510/s    --  -12%  -19%
long  51692/s   14%    --   -8%
short 56366/s   24%    9%    --

就我个人而言，这不是我会选择的优化方式。我通常倾向于使用更长、更具描述性的类名。