Select Code to Download

my $sub = sub { ... };
no strict 'refs';
*{"Alex::Log::$name"} = $sub;

sub _doLog {
  my ($self, $lid, $pid, $msg) = @_;
...
                                   VALUES ( ?, ?, ? )" );
  $sth->execute( $lid, $pid, $msg );
}

my $singleton;
sub new {
...

  $singleton;
);

  foreach my $lev( @$levels ) {
    no strict 'refs';
...
      _doLog(@$lev, @_);
    };
  }

sub _doLog {
  my ($lid, $pid, $msg) = @_;
...
                                     VALUES ( ?, ?, ? )" );
  #...
}

our @EXPORT_OK;
use base 'Exporter';
...
  _init();
  goto \&Exporter::import;
}

  foreach my $lev( @$levels ) {
    push @EXPORT_OK, $lev->[1]; # set up the allowable exports
...
      _doLog(@$lev, @_);
    };
  }