modifying symbol table at runtime

tuning-symbol-table.pl

#!/usr/bin/evn perl
# this simple script demostrate modifying symbol table at runtime

use 5.010;

package Hello;

sub hello {
  "hello";
}

package main;

say Hello->hello;

*{Hello::hello} = sub {
  "modified";
};

say Hello->hello;