foreach my $lev( @$levels ) {
    no strict 'refs';
    *{'Alex::Log::' . $lev->[1]} = sub {
      _doLog(@$lev, @_);
    };
  }