package Mixer;
use strict;

sub new
{
    my $pkg  = shift;
    my $self = [0];
    
    bless $self,$pkg;

    return $self;
} 

sub in
{
    my $self    = shift;
    $self->[0] += shift;
}

sub out
{
    my $self   = shift;   
    return($self->[0]);
}

sub pulse
{
    my $self   = shift; 
    $self->[0] = 0;
}

'end Mixer';