use Perl

• Chaining Accessors (Score:2)

  by davorg (18) <dave@dave.org.uk> on 2006.06.20 5:37 (#48308) Homepage Journal

  I think you want Class::Accessor::Chained [cpan.org].

  Reply to This

  • Re:Chaining Accessors (Score:1)

    by TheNomad (7014)

    Thanks perfect!

    I haven't made up my mind whether accessors that return the object are such a good idea. Say, for example, you have some basic code:

    package DoStuff;
    .... code to make accessors goes here. We have get_foo and set_foo.
    
    sub make_foo_value {
    $self = shift;
    $self->set_foo(rand)
    
    }
    
    package main;
    
    my $stuff = DoStuff->new;
    $stuff->make_foo_value;

    What should make_foo_value return? If it returns $self, then you need to go:

    print $stuff->make_foo_value->get_foo;

    On the other hand, if