meta-stuff.pl

use v5.14;

{
	package QueryListExtended;
	
	use Moose;
	extends 'Class::MOP::Class';

	sub get_all_attributes_names
	{
		my $self = shift;
		my @arrayOfNamesOfAttributes;
		my @arrayOfAttributes = $self->get_all_attributes();
		foreach my $attribute (@arrayOfAttributes) {
			push (@arrayOfNamesOfAttributes, $attribute->name());
		}
		return @arrayOfNamesOfAttributes;
	}

	sub call_attribute
	{
		my $self = shift;
		print $_[0];
		return $self->{$_[0]};
	}
};

use Data::Dumper;
 
# Global Declarations
my $class = QueryListExtended->create('Foo');
 
# Attribute & method creation.
$class->add_attribute(bar => (accessor => 'bar'));
$class->add_attribute(ber => (accessor => 'ber'));
$class->add_attribute(bir => (accessor => 'bir'));
$class->add_attribute(beer => (accessor => 'beer'));

# Create an instance of the Foo class with some data
my $object = $class->new_object(bar => 123, ber => 456, bir => 789, beer => "Harvey's");

my @arrayOfAttributes = sort $class->get_all_attributes_names();
my $method_name = $arrayOfAttributes[0];

say $method_name, ": ", $object->$method_name;