rootcho has asked for the wisdom of the Perl Monks concerning the following question:
This means that any method (except several i didnt mentioned here for simplicity) should be redirected to $self->page->method().use Class::Delegation ...... send => -OTHER, to => -SELF->page; sub page { ${$_[0]}{app}{currTran}{currPage} }
when I run it I get :use Aspect; before { ..... } call qr/^MyClass/;
I see that Delegation probably didn't succeeds because page() is dynamic and for some reason conflicts with Aspect.... MyClass::Application::AUTOLOAD-> Could not delegate at /...../lib/Aspect/Hook/LexWrap.pm line 63 MyClass::Application::DESTROY->
before {....} call qr/^MyClass/ & !call qr/AUTOLOAD/;
I get another error :
Can you figure out some workaround for this situation ? Should I stop using Class::Delegation and do everything with AUTOLOAD instead ?Can't call method "match_define" without a package or object reference + at /...../lib/Aspect/Pointcut/NotOp.pm line 13.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Aspect and Class::Delegation
by aufflick (Deacon) on Jan 02, 2007 at 23:20 UTC | |
|
Re: Aspect and Class::Delegation
by diotalevi (Canon) on Jan 03, 2007 at 16:51 UTC |