EG
Копипастишь модуль к себе, и никаких зависимостей.
Size: a a a
EG
EG
R
EG
R
EG
use Attribute::Handlers;
sub decorator : ATTR(CODE) {
my ($package, $symbol, $referent) = @_;
no warnings 'redefine';
*{ $symbol } = sub {
# replacement code
}
}
EG
:first :second
, правда ли, что :first
будет вызван до :second
всегда?EG
R
AK
EG
EG
$inst->attr($value)
мне кажется даже в чём-то элегантнее, так как позволяет чейнить присваивания.R
VG
R
R
VG
EG
EG
AK