Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Advanced subroutine and symbol table manipultation

by mvc (Scribe)
on Jul 17, 2004 at 00:26 UTC ( [id://375165]=note: print w/replies, xml ) Need Help??


in reply to Advanced subroutine and symbol table manipultation

This is a task for the Aspect module.

after { $_[0]->return_value( '('. $_[0]->return_value. ')' ) } call 'SomePackage::value';

Sure you could do this with Hook::LexWrap, in fact that is how Aspect does it. But this is easier. The main difference is that you can select entire groups of methods, using a pointcut language.

Say you wanted to parenthesize not one method, but all MyPackage methods, except the constructor:

after { $_[0]->return_value( '('. $_[0]->return_value. ')' ) } call qr/^SomePackage/ & !call qr/^SomePackage::new/;

Unfortunately you cannot match by attributes or inheritance yet.

And if you want to create a reusable aspect (like the Wormhole):

# creating an aspect package Aspect::Library::Parenthesize; use Aspect; use base 'Aspect::Modular'; sub get_advice { after { $_[0]->return_value( '('. $_[0]->return_value. ')' ) } pop; } # using the new aspect package main; use Aspect; use SomePackage; aspect Parenthesize => call 'SomePackage::value' & !cflow 'HatesParentheses::run' & cflow 'LikesParentheses::run';

Log In?
Username:
Password:

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

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

    No recent polls found