Re: Package level scope callbacks.

[gmpassos]

If what you want is to have a sub called when a sub of a package is called maybe this code can be useful for you:

############
# SPY_SUBS #
############

sub spy_subs {
  my ( $pack , $callback ) = @_ ;
  $pack =~ s/::$// ;
  
  my $stash = *{"$pack\::"}{HASH} ;
  
  foreach my $Key ( keys %$stash ) {
    my $sub = "$pack\::$Key" ;
    if ( defined &$sub ) {
      my $org_sub = \&$sub ;
      *{$sub} = sub { &$callback(@_) ; &$org_sub(@_) ;} ;
    }
  }
}

###############
# PACKAGE FOO #
###############

package foo ;

  sub call {
    print "call>> @_\n" ;
  }
  
  sub foo {
    print "foo>> @_\n" ;
  }
  
  main::spy_subs('foo',\&call) ;
  
  foo(123);

Output:

call>> 123
foo>> 123

But note that this will interfere with caller(), since you have an extra sub for each call. With some extra code this can be fixed, but for now is just that.

[tilly]

You can fix the caller issue by calling the original subroutine with goto &$org_sub;