Audio::Nama::Object

NAME

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);