DOMパーサーを使用した空のxmlタグ圧縮のPerlインライン関数

Question

私はかなり新しいです。私はperl DOM parserを使用しています。空の要素でタグ圧縮を処理する方法の例がここにあります：

これが行われる理由

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; 
} 

どのように、またはそれが可能であり、1行に上記を行うためだろう...のように書かれるでしょうか？

Answer 1

次のように記述することができます：

働い

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