# use Switch;

deleted...

sub doCmd
{
    my $self = shift ;
    my $cmd  = shift ;
use Switch;
    switch ($cmd)
    {
        case 'get_permission'     {}
    }
no Switch;
}