a11y accessibility color

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

See also

• https://perldoc.perl.org/functions/caller
• https://stackoverflow.com/questions/3439123/how-can-i-match-everything-that-is-after-the-last-occurrence-of-some-char-in-a-p/

Ludwig is the first sentence search engine that helps you write better English by giving you contextualized examples taken from reliable sources.