NOTE: It must be defined within [[! ... !] to avoid redefinition! [! # Here we add a comment sub Hello { # not much to do ... return 'Hello world' ; } !] Now we call the subroutine: [+ Hello () +]
$XXXXXX::var = [+ defined ($XXXXXX::var)?$XXXXXX::var:' Ok.
Setup some variable outside our namespace, which should not be cleaned up
[- $XXXXXX::var = 1 -]
$XXXXXX::var = [+ defined ($XXXXXX::var)?$XXXXXX::var:'
[! sub CLEANUP
{
print LOG "This will be called before variable cleanup\n" ;
undef $XXXXXX::var ;
}
!]