SYNOPSIS

# Define a class
package Foo;

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

1;


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

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