Aspect::Library::Trace might be what you're looking for.

package Foo;

use strict;
use warnings;
use Aspect;
use Aspect::Library::Trace; 
use Data::Dumper::Concise;

aspect Trace => call qr/^Foo::/;

sub a {
    my($var) = @_;
    b(@_);
}
 
sub b {
    my($var) = @_;
    return map( {$_ + 1;} @_ );
}
print Dumper( a(qw[1 2 3]) );
[download]