}
sub enter_sub {
- my ($self) = @_;
+ my ($self, $level) = @_;
+
+ return if $global_trace_subs < $level;
if (!$self->{"trace_subs"} && !$global_trace_subs) {
return;
}
sub leave_sub {
- my ($self) = @_;
+ my ($self, $level) = @_;
+
+ return if $global_trace_subs < $level;
if (!$self->{"trace_subs"} && !$global_trace_subs) {
return;