Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Rewriting sub code on import to add logging

by snoopy (Curate)
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://686422]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2021-09-27 20:16 GMT
Find Nodes?
    Voting Booth?

    No recent polls found