Это гораздо более кратко написано так

я есть следующий код, который необходимо исправить, так какdefined(@array) устарел в последнем Perl.

my @inputs = (
    ( defined @{$padSrc->{inouts}} ? @{$padSrc->{inouts}} : () ),
    ( defined @{$padSrc->{inputs}} ? @{$padSrc->{inputs}} : () )
);

Я не хочу переезжать вif ( @{ $padSrc->{inouts} } ) такой подход, так как это увеличит мой счетчик строк.

Ответы на вопрос(3)

Ваш ответ на вопрос