Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Re-using/changing a class

by Fastolfe (Vicar)
on Feb 10, 2001 at 01:49 UTC ( [id://57490]=note: print w/replies, xml ) Need Help??


in reply to Re-using/changing a class

If you want to re-define a subroutine in a module to suit your needs, consider either creating a descendant class or use eval to re-define the subroutine:
package MyClass2; use MyClass; use Exporter; @ISA = ('MyClass'); @EXPORT = @MyClass2::EXPORT; sub overridden { print "This is *my* method, overriding MyClass::overridden!\n"; }
Or:
#!/usr/bin/perl use MyClass; sub MyClass::overridden { print "I need this to behave differently.\n"; }
Or:
#!/usr/bin/perl use MyClass; my $code = get_some_code_text; eval "sub MyClass::overridden { $code }";
Using eval in this way lets you completely re-define your functions internally, even stuff in other modules, without needing to write your changes in a new file and then "re-use" (re-execute) that file to get your changes to take effect. Persistency might be a good reason to want to edit the source directly, though, so I understand that.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://57490]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2024-04-19 13:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found