А так если, плохо? BEGIN { for my $method (

Question

qw/m1 m2 m3/ ) {
no strict 'refs';
*$method = sub {
my $self = shift;
if (@_) { $self->{ $method } = shift }
return $self->{ $method };
};
}
}

#perl #programming #russian

0

06.03.2024

22 просмотра

Denis Evdokimov · Accepted Answer

Лучше такой код вынести в отдельную библиотеку, а вместо этого кода написать use SFE::Accessors::mk_accessors(qw/m1 m2 m3/);

0

9 месяцев назад