Help for this page
my $method = $method_and_structure[@method_and_structure-1];
my $method = $method_and_structure[-1];
my $method = (split '::', $AUTOLOAD)[-1]; ... #### (my $method = $AUTOLOAD) =~ s/.*:://;