12、Perl编程：属性的高级应用与方法控制

Perl编程：属性的高级应用与方法控制

1. 利用属性添加信息

在Perl编程中，子程序和变量的操作通常比较直接，但改变Perl对它们的处理方式的选项有限。而属性（Attributes）为我们提供了一种给变量和子程序添加额外信息的有效途径。属性是附着在变量或子程序上的小块数据，Perl会根据这些属性运行相应的代码，具有很多潜在的应用场景。

例如，我们想为类的每个方法添加文档说明。在一些语言中支持文档字符串（docstrings），可以通过调用类方法来查看这些注释。虽然Perl的注释功能相对较弱，但我们可以使用子程序属性来达到类似的效果。

以下是一个 Counter 类的示例：

package Counter;
use strict;
use warnings;
use Attribute::Docstring;
our $counter :Doc( 'a count of all new Foo objects' );
sub new :Doc( 'the constructor for Foo' )
{
    $counter++;
    bless { }, shift;
}
sub get_count :Doc( 'returns the count for all Foo objects' )
{
    return $counter;
}
1;

在这个示例中，我们使用了 Attribute::Docstring 模块提供的 Doc 属性。属性的原型紧跟在子程序名