Audio::Nama::Does::Persist # later, # for the class, provides an # (possibly filtered, altered) # array of objects.

In a role:

1;

In your class:
         
         package My::Class;
         use Role::Basic 'with';
         
         with qw(
             Does::Serialize::AsYAML
         );
         
         sub as_hash { ... } # because the role requires it

NAME

Audio::Nama::Object - Class builder

SYNOPSIS

# Define a class
package Foo;

use Audio::Nama::Object qw{ bux baz };

1;


# Use the class
my $object = Foo->new( bux => 1 );

$object->set( bux => 2);

print "bux is " . $object->bux . "\n";


# Define a subclass (automatically inherits parent attributes)

package Bar;

our @ISA = 'Foo';

my $lonely_bar = Bar->new();

$lonely_bar->set(bux => 3);