package Scheduler;

sub new
{
    my $pkg  = shift;
    my $self = shift;      # fill with [array] of Mixers, Amplifiers, Lags, Patches, and Schedulers  
    
    bless $self,$pkg;

    return $self;
} 

sub pulse
{
    my $self  = shift;

    foreach my $elt (@$self) 
    {
	$elt->pulse();
    }
}

'end Scheduler';