Select Code to Download

sub somesub {
  no warnings 'redefine';
...
  # several more
  # ....
}

sub abc { 1 }

...
local *abc = sub { 6 } if 1;
# Prints 6
print abc(), "\n";

package Anypackage;
sub can_read {
  # Some checks here
}

sub can_read { 1 }