wrap
para que admita envolver la entrada y la
salida de una subrutina:
wrap 'mirutina', pre => sub { print "Ejecutando ".shift()." con args <@_>\n"; @_ }, post => sub { print "Saliendo de mi_rutina\n"; @_ } ;
El código post
recibe como argumentos al resultado de la subrutina
'envuelta'.
Casiano Rodríguez León