Select Code to Download

package F;
sub foo { "foo" }
...
package main;
my $o = bless [],"G";
print $o->foo;

CODE(0x8149624)
Undefined subroutine &G::foo called at - line 9.