Personally defined pragmas

crabbdean has asked for the wisdom of the Perl Monks concerning the following question:

I'm wondering if its possible to create a pragma just for my module? I've created a module in which every call to "push" is only performed if a verbose option is set.
push (@{$self->{output}}, ["chmod:\t$dir"]) if ($self->{verbose});

Is it possible to create this so its just like this ...
push (@{$self->{output}}, ["chmod:\t$dir"]);
... but only within my module?

Dean
The Funkster of Mirth
Programming these days takes more than a lone avenger with a compiler. - sam
RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers

Comment on Personally defined pragmas Select or Download Code

Replies are listed 'Best First'.
Re: Personally defined pragmas by borisz (Canon) on Jun 07, 2004 at 10:41 UTC
Hi, you might do it with Filter or Filter::Simple. Boris	[reply]
Re^2: Personally defined pragmas by crabbdean (Pilgrim) on Jun 07, 2004 at 10:51 UTC
Boris, Thanks, that's pretty much what I was looking for. :-) Reading through the documentation I was thinking "Oooo, dynamic code". The possibilities this creates is GREAT! Thanks ++ Dean The Funkster of Mirth Programming these days takes more than a lone avenger with a compiler. - sam RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers	[reply]
Re: Personally defined pragmas by dragonchild (Archbishop) on Jun 07, 2004 at 11:37 UTC
`sub my_push { my $self = shift; return unless $self->{verbose}; push @{$self->{output}}, @_; } # Somewhere later ... $self->my_push( ["chmod:\t$dir"] );` [download] And, every call to push is converted into a call to my_push(). This is how OO is meant to be used. ------ We are the carpenters and bricklayers of the Information Age. Then there are Damian modules.... sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon.* - flyingmoose I shouldn't have to say this, but any code, unless otherwise stated, is untested	[reply] [d/l]
Re^2: Personally defined pragmas by crabbdean (Pilgrim) on Jun 07, 2004 at 23:27 UTC
Yes, this is excellent! ... and probably the cleanest form of implementation. I'd had similar thoughts. Thanks ++ Dean The Funkster of Mirth Programming these days takes more than a lone avenger with a compiler. - sam RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers	[reply]
Re: Personally defined pragmas by BUU (Prior) on Jun 07, 2004 at 11:19 UTC
A better solution would probably (Ignoring prebuilts like log4perl that solve this problem) to define your own "logging/error/warn" func that you can just turn off and on. Observe: `sub my_warn_of_god(@) { if( $Main::Verbosity::Is::Double::PLus::Good ) { print @_; } } #stuff my_warn_of_god "Some stuff I want to see if debug"; #more stuff my_warn_of_god "Other stuff"; #yet more stuff` [download] This way you A) don't have to mess about with source filtering (which I don't trust..), and B) you don't have to do odd things like disabling push.	[reply] [d/l]
Re: Personally defined pragmas by BrowserUk (Patriarch) on Jun 07, 2004 at 11:00 UTC
How would your pragma know the difference between this line which should only happen when verbose is enabled `push (@{$self->{output}}, ["chmod:\t$dir"]);` [download] and this line that should always happen? `push (@{$self->{output}}, ["chmod:\t$dir"]);` [download] Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail	[reply] [d/l] [select]
Re: Personally defined pragmas by andyf (Pilgrim) on Jun 07, 2004 at 10:38 UTC
If I understand correctly Crabbdean you want to add a state to your module, just one extra hash key that acts as a flag. You might turn this on and off in an instance with `$thisthing->verboseon; some more code needing verbosity $thisthing->verboseoff;` [download] The push would be internally short circuited to a nop where the verbose flag is not on. Or am I missing your point?	[reply] [d/l]

Back to Seekers of Perl Wisdom