Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Rewriting sub code on import to add logging

by snoopy (Deacon)
on May 14, 2008 at 01:12 UTC ( #686422=note: print w/replies, xml ) Need Help??

in reply to Rewriting sub code on import to add logging

You might be interested in Attribute::Handlers as a way of installing handlers base on subroutine attributes:
#!/usr/bin/perl use warnings; use strict; use Attribute::Handlers; sub log : ATTR(CODE) { my ($pkg, $sym, $code) = @_; no strict 'refs'; no warnings 'redefine'; # # Install log handler # my $name = *{ $sym }{NAME}; warn "installing log handler for $pkg\:\:$name"; *{$pkg . '::' . $name} = sub { warn "BEGIN sub block...$pkg\:\:$name\n"; my @rv = $code->(@_); warn "END sub block...$pkg\:\:$name\n\n"; return @rv; } } sub something : log { print "I'm doing something with @_.\n"; return 42; } my ($result) = something(qw/foo bar/); print "result: $result\n";
This produces:
installing log handler for main::something at line 13. BEGIN sub block...main::something I'm doing something with foo bar. END sub block...main::something result: 42
Update: Added no warnings 'redefine';

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://686422]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2018-07-19 08:14 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (404 votes). Check out past polls.