http://qs321.pair.com?node_id=560894


in reply to Re: Adding functionality to an Object
in thread Adding functionality to an Object

I would like to do this stuff at runtime. Is there documentation about this stuff ?

LuCa

Replies are listed 'Best First'.
Re^3: Adding functionality to an Object
by gellyfish (Monsignor) on Jul 13, 2006 at 09:17 UTC

    In the first instance you might want to look at perlboot and perltoot as they both cover Inheritance.

    As to adding methods to a class at runtime, yes that is entirely possible (you will find a number of modules that do this in a sub AUTOLOAD,) but you might want to carefully review your design as it is probably not the best solution in the general case.

    However if you really insist on adding methods dynamically you can do something as simple as:

    package Foo; + sub new { my ( $class ) = @_; return bless {}, $class; } + package main; + use strict; + my $foo = Foo->new(); + *Foo::zub = sub { print "I'm zub!\n"; }; + $foo->zub();

    /J\

Re^3: Adding functionality to an Object
by davorg (Chancellor) on Jul 13, 2006 at 09:18 UTC

    If you want to do it at runtime then you'll need to fiddle around with the "victim" object's symbol table.

    One example of doing this is in Symbol::Approx::Sub which inserts an AUTOLOAD function into its caller's symbol table. I wrote an article about how that works. You might find that useful.

    There are no doubt plenty of other modules on CPAN that do similar things. I'd guess that the Acme:: namespace would be a good place to start looking.

    --
    <http://dave.org.uk>

    "The first rule of Perl club is you do not talk about Perl club."
    -- Chip Salzenberg

Re^3: Adding functionality to an Object
by xdg (Monsignor) on Jul 13, 2006 at 12:46 UTC
    I would like to do this stuff on runtime. Is there documentation about this stuff ?

    If you are designing the objects, then look at Class::Prototyped.

    my $cp = Class::Prototyped->new(); my $mirror = $cp->reflect(); $mirror->addSlots( field1 => 'foo', sub1 => sub { print "this is sub1 printing field1: '".$_[0]->field1."'\n"; }, ); $mirror->deleteSlot('sub1');

    There are others, too, like Class::Object or Class::Decorator that do things like this in various ways.

    If you didn't design the object, then you could use Class::Adapter to wrap the object while adding your own methods.

    As more of a hack, if you really need to do it on the fly, you can rebless the object into a dynamically generated subclass that has the methods you want. E.g.

    # Create an object of Some::Class my $obj = Some::Class->new(); $obj->foo(); # where foo() is a method of Some::Class # Create the new "class" by assigning @ISA and a method in the new nam +espace @Some::Class::Extended::ISA = qw/Some::Class/; *Some::Class::Extended::bar = sub { my $self = shift; print "Hello, Ba +r" }; # Rebless the object to the new class bless $obj, 'Some::Class::Extended'; $obj->foo; # From Some::Class $obj->bar; # From Some::Class::Extended

    -xdg

    Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.