Perl, встроенная функция для сжатия пустых тегов XML с использованием анализатора DOM

Question

Я довольно новичок в Perl, и я использую анализатор Perl DOM , и есть пример того, как обрабатывать сжатие тегов с пустыми элементами, который дает пример здесь:

 XML::DOM::setTagCompression (\&my_tag_compression);

 sub my_tag_compression
 {
    my ($tag, $elem) = @_;

    # Print empty br, hr and img tags like this: <br />
    return 2 if $tag =~ /^(br|hr|img)$/;

    # Print other empty tags like this: <empty></empty>
    return 1;
 }

Я понимаю, почему это делается, но мне не нужно ничего такого сложного, поскольку я просто хочу, чтобы моя функция всегда возвращала 1.Таким образом, моя подпрограмма "my_tag_compression" будет написана как ...

 XML::DOM::setTagCompression (\&my_tag_compression);

 sub my_tag_compression
 {
    return 1;
 }

Как бы я, или это возможно, сделать выше в одну строку?

Answer 1

Вы можете написать:

XML::DOM::setTagCompression( sub { 1; } );