sub _init
{
   my ($self, %args) = @_;

##</code><code>##

   ...   
}