#!/usr/bin/perl

use strict;
use ExtUtils::testlib;
use Soundzero;

my $cnt = 10;
sub my_callback;

my $pa = new Soundzero ({samplerate => 22050,
			 bufferlen => 2048,
			 callback => \&my_callback
		     });

# open (my $fh, "<", "tallis-22050-8-1.raw")
#   or die "Can't open tallis: $!";
print "From prog 1: $cnt\n";
$pa->start;
print "From prog 2: $cnt\n";

sleep (10);
print "From prog 3: $cnt\n";

exit (1);


sub my_callback {

    my $in = shift;
    $cnt++;
    print "From cb: $cnt\n";
    my $out = ($in);
    return $out;

}