#/usr/bin/perl

package TTTT;

use threads;
use threads::shared;
use Data::Dumper;

sub new
{
        my $class=shift;

        my $self={
                universe=>shift
        };

        $self->{'_dmx_channels'}=chr(0)x512;
        $self->{'_thread'}=threads->create(\&worker_thread,\$self);

        return(bless(\%self, $class));
}

sub set
{
        my($self,$channel,$value)=@_;

        vec($self->{'_dmx_channels'},$channel,8)=$value;
}

sub worker_thread
{
        my ($super)=@_;

        while(1)
        {
                $i++;
                print "Thread: $i:".$$super->{'universe'}."\n";

                for($n=0;$n<30;$n++)
                {
                        print int(vec($$super->{'_dmx_channels'},$n,8)).",";
                }
                print "\n";
                sleep(2);
        }
}

1;