modern post-modern meta-modernism perl oop corinna

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

perl method function subroutine reflexion mop