Help for this page

Select Code to Download


  1. or download this
    {
  package My::Logger;
...
  # want this to say "My::Script - Hello"
  log_message("Hello");
}
  2. or download this
    {
  package My::Logger;
...
  My::Logger->import;
  log_message("Hello");  
}
  3. or download this
      use Sub::Name qw/subname/;
  do {
...
    my $name = "$PACKAGE\::log_message";
    *{$name} = subname $name => sub { ... };
  };