[$sub entry $]
[*
my ($obj) = @_ ;
return if (!$obj) ;
*]
[+ $obj +]
[$endsub $]
[$sub txt $]
blablabla
[$endsub$]
[-
entry (undef) ;
entry ('not undef') ;
txt ;
-]
[$sub entry $]
[*
my ($obj) = @_ ;
return if (!$obj) ;
*]
[+ $obj +]
[$endsub $]
[$sub txt $]
blablabla
[$endsub$]
[-
entry (undef) ;
entry ('not undef') ;
txt ;
-]