Select Code to Download

use warnings;
use strict;
...
sub doA2 { print "Doing A2 for $_[1]\n"; &$crHandler('A2'); }
sub doB2 { print "Doing B2 for $_[1]\n"; &$crHandler('B2'); }

use warnings;
use strict;
...
# module return
#-----------------------------------------------
return 1;

use warnings;
use strict;
...
};
$oFoo->doB2('Dov (bear)');