Select Code to Download

package main;
{
...
    *main::foo = sub {print "Foo\n"}
    foo();
}

package main;
sub foo {print "Foo\n"}

use strict;
use warnings;
...

# Verify the change:
print $s->id_get, ": ", $s->name_get, "\n";

creating sub Student::name_get
creating sub Student::name_set
...

1234: John Doe
1234: Mark Doe