view release on metacpan or  search on metacpan

lib/Audio/Nama/EffectChain.pm  view on Meta::CPAN

# ------------- Effect-Chain and -Profile routines --------
# Effect Chains
#
# we have two type of effect chains
# + global effect chains - usually user defined, available to all projects
# + system generated effect chains, per project

{
package Audio::Nama::EffectChain;
use Modern::Perl '2020';
use Data::Dumper::Concise;
use Carp;
use Exporter qw(import);
use Storable qw(dclone);
use Audio::Nama::Effect  qw(fxn append_effect);
use Audio::Nama::Log qw(logpkg logsub);
use Audio::Nama::Assign qw(json_out);

use Audio::Nama::Globals qw($fx_cache %tn $fx);

our $AUTOLOAD;
our $VERSION = 0.001;
no warnings qw(uninitialized);
our @ISA;
our ($n, %by_index, @attributes, %is_attribute);
use Audio::Nama::Object qw( 

		n					
		ops_list			
        ops_data			
		inserts_data		
		fade_data			
		region				
		attrib 				
		class				
        is_mixing           
		source_tag 			

		);
@attributes = qw(

  		name				
  		project				
  		global				
  		profile				
  		user				
  		system				
  		track_name			
  		track_version_result 	
  		track_version_original 	
  		track_target_original 
  		insert				
  		track_cache			
 		track_target		
  		bypass				
  		id					

	) ;


%is_attribute = map{ $_ => 1 } @attributes;
initialize();

## sugar for accessing individual effect attributes
## similar sugar is used for effects. 

sub is_controller {
	my ($self, $id) = @_;
	$self->{ops_data}->{$id}->{belongs_to}
}