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);
[download]

Output:

call>> 123
foo>> 123
[download]

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.