package Patch;

use Trailer;

my $trail=new Trailer;


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

    return $self;
} 

sub pulse
{
    my $self=shift;

#print $trail->ascarray($self);

    $self->[1]->in($self->[0]->out());
}

'end Patch';