Help for this page
package MyClass2; use MyClass; ... sub overridden { print "This is *my* method, overriding MyClass::overridden!\n"; }
#!/usr/bin/perl ... sub MyClass::overridden { print "I need this to behave differently.\n"; }
#!/usr/bin/perl ... my $code = get_some_code_text; eval "sub MyClass::overridden { $code }";
www.com | www.net | www.org
No recent polls found