my $method = $method_and_structure[@method_and_structure-1];

##</code><code>##

my $method = $method_and_structure[-1];

##</code><code>##

my $method = (split '::', $AUTOLOAD)[-1];

####

my ($method) = $AUTOLOAD =~ /([^:]+)$/;

####

(my $method = $AUTOLOAD) =~ s/.*:://;