package Foo;

...

sub init {
   ...

   return unless $arg;

   ...
}

init()

1;