Я вообще не разбираюсь в атрибутах подпрограмм Perl.
Я никогда не видел их в реальном коде, и perldoc perlsub
и атрибуты perldoc
не отвечают на мои вопросы:
Было бы здорово, если бы кто-нибудь мог составить подробный пример использования атрибутов должным образом.
Для тех, кто невежественен, как я, атрибуты - это параметры после двоеточия в приведенных ниже примерах атрибутов ОБЗОР
:
sub foo : method ;
my ($x,@y,%z) : Bent = 1;
my $s = sub : method { ... };
use attributes (); # optional, to get subroutine declarations
my @attrlist = attributes::get(\&foo);
use attributes 'get'; # import the attributes::get subroutine
my @attrlist = get \&foo;