Скажем, у меня есть пакет под названием My::Pkg
, и этот пакет имеет метод класса ->new(...)
для создания новых объектов:
package My::Pkg;
sub new {bless {@_[1..$#_]} => $_[0]}
Есть ли вред в определении следующей подпрограммы:
sub My::Pkg {@_ ? My::Pkg::new('My::Pkg', @_) : 'My::Pkg'}
Чтобы кто-то мог написать:
my $obj = My::Pkg one => 1, two => 2;
Вместо
my $obj = My::Pkg->new(one => 1, two => 2); # which still works, but is longer
Мне нравится привязка метода подпрограммы package-named-constructor-subroutine, но мне интересно узнать, есть ли какие-либо скрытые ошибки в этой технике, о которых я не думал.
Update:
Наследование работает правильно, как показано на примере здесь:
{package a; sub new {say "a::new [@_] ", $_[0]->init}}
{package b; our @ISA = 'a'; sub init {"(b::init [@_])"}}
{package a::b; our @ISA = 'b';}
sub a::b {print "absub [@_], "; 'a::b'}
# a::b() called with no args, returns 'a::b', which then becomes 'a::b'->new(...)
a::b->new; # absub [], a::new [a::b] (b::init [a::b])
a::b->new(1, 2, 3); # absub [], a::new [a::b 1 2 3] (b::init [a::b])
# no call to `a::b()` but otherwise the same:
'a::b'->new; # a::new [a::b] (b::init [a::b])
'a::b'->new(1, 2, 3); # a::new [a::b 1 2 3] (b::init [a::b])
new a::b::; # a::new [a::b] (b::init [a::b])
new a::b:: 1, 2, 3; # a::new [a::b 1 2 3] (b::init [a::b])
Интересно, что единственное, что пока отличается от того, что следующие 2 строки становятся синтаксическими ошибками:
new a::b;
new a::b 1, 2, 3;
Которая является синтаксической ошибкой по той же причине some_undefined_sub some_defined_sub;
является одной.
Если определена подпрограмма new
, она анализируется как new( a::b(...) )
, которая является нормальной для двух соседних подпрограмм с открытым словом.
Лично я согласен с тем, что new a::b
становится синтаксической ошибкой, однозначная версия new a::b::
всегда будет работать, как показывает tchrist ниже.