my $caller_method_with_namespace = (caller(0))[3]; my ($method) = $caller_method_with_namespace =~ /([^::]*)$/;