use Sub::Name qw/subname/;
  do {
    no strict 'refs';
    my $name = "$PACKAGE\::log_message";
    *{$name} = subname $name => sub { ... };
  };