Joe wrote:
Is there a simple way to add a method to an object?  Basically, what I
want to do is this:

$window->CenterOnScreen();

#Minimalistic example
use Data::Dumper;
sub Win32::GUI::Window::CenterOnScreen { my $self = shift;
        print "In CenterOnScreen\n";
        print Dumper($self);
        }

Or if you have a number of subs to add, enter package Win32::GUI::Window like this:

package Win32::GUI::Window;
use Data::Dumper;
sub CenterOnScreen { my $self = shift;
        print "In CenterOnScreen\n";
        print Dumper($self);
        }

I don't know which is more obvious to the reader. I guess the second approach where you explicitly change package.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     [EMAIL PROTECTED]
                 http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail


Reply via email to