An example Perl program that shows how to enumerate all attributes of a Moo object.

moo-attributes.pl

#!/usr/bin/env perl

use warnings;
use strict;

{
    package Person;

    use Moo;

    has 'name' => ( is => 'rw' );
    has 'age' => ( is => 'rw' );
    has 'likes_disco' => ( is => 'rw' );
}

my $bobby = Person->new( name => 'Bobby', age => 42, likes_disco => 1 );

for (keys(%{Moo->_constructor_maker_for(ref $bobby)->all_attribute_specs})) {
    print $_ . "\n";
}

# Prints:
#   likes_disco
#   name
#   age